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SEQ 0001 



IDENTIFICATION 

PRODUCT CODE: AC-F756B-MC 

PRODUCT NAME: CVDRCBO DRV11J DIA6 TST PRT1 

DATE CREATED: 17-FEB-82 

MAINTAINOR: DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED 3Y 
DIGITAL. 

COPYRIGHT (C) 1979, 1982 DIGITAL EQUIPMENT CORPORATION 
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D 1 
'.0 ABSTRACT 

SEQ 0003 

THE DRV11-J IS A GENERAL PURPOSE PARALLEL INTERFACE FDR THE 
LSI-11 BUS. IT HAS A BASIC CONFIGURATION OF 64 TRI-STATE IN/CUT 
LINES DIVIDED INTO FOUR GROUPS OR PORTS OF 16 BIT WORDS. 

THERE ARE TWO AK DIAGNOSTICS FOR THE DRV11-J OPTION. 

THE DRV11-J DIAGNOSTIC TEST PART 1 OF 2 CONTAINS A 

SERIES OF TESTS WITHOUT DRV11J INTERRUPTS DESIGNED TO TEST ALL 

LOGIC FUNCTIONS AND DATA PATHS MADE ACCESSIBLE WITH THE LOOPBACK 

CABLE INSERTED INTO THE DRV11-J I/O CONNECTORS. 

THE DRV11-J DIAGNOSTIC PART 2 OF 2 IS A SERIES OF TESTS 

WITH DRV11J INTERRUPTS DESIGNED TO TEST ALL LOGIC AND DATA PATHS 

MADE ACCESSIBLE WITH THE LOOPBACK CABLE INSERTED INTO THE I/O 

CONNECTORS. 

THE DRV11-J IS CONTAINED ON A DOUBLE HEIGHT MODULE. 

THE MODULE CONTAINS TWO 50 PIN CONNECTORS FOR INTERFACING 

TO EXTERNAL USER DEVICES. 

FOR DIAGNOSTIC TESTING, THE DRV11-J CABLE (BC05W-02) MUST 
BE INSTALLED WITH 1/2 TWIST BETWEEN THE 50 PIN CONNECTORS. 

************************************************************************ 

* :;GPA * 

* NOTE: THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXT11 (SBC 11/21) * 

* BASED SYSTEMS. THE PROGRAM WILL AUTOMATICALLY ADJUST ITSELF TO RUN * 

* IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS: * 

LSI-11, 11/2, AND 11/23 SBC 11/21 * 

« CSR RANGE: 1 6001 o"t(M 77760 174000 T(Tl 77760 * 

* PH 0GRAMMA8LE... * 

* ...VECTOR RANGE: 0000 TO 1774 000 TO 374 * 

* ;;GPA * 

******************* ********** ************************************ ******* 

?.0 REQUIREMENTS 



2.1 EQUIPMENT 



1. PDP1 1/03, 11/23 COMPUTER OR LSI-11 PROCESSOR 
WITH A MINIMUM OF 4K MEMORY. 

2. SERIAL LINE INTERFACE AND CONSOLE TERMINAL 

3. DRV11-J OPTION WITH A 8C05W-02 CABLE 



I ^.^ STORAGE 



THE PROGRAM USES THE LOWER 4K OF MEMORY. 
3.0 LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE 



E 1 

BINARY FORMATTED PAPERTAPES OR XXDP MEDIA 

(FILES WITH .BIC OR .BIN EXTENSIONS ONLY), SEQ 0004 

^.0 S1ARTIN6 PROCEDURE 

1. MAKE SURE THE DRV11-J CABLE IS INSERTED WITH 1/2 A TWIST 
ON THE I/O CONNECTORS OF THE DRV11-J OPTION. 

THIS WILL CONNECT PORT A TO PORT C AND PORT B TO PORT D. 

2. MAKE SURE THE DEVICE BUS ADDRESSES AGREE WITH THE DEFAULT 
VALUES DEFINED IN SECTION 7.1. IF NOT, CHANGE 
LOCATION(S) AS DESIRED VIA THE 'ADDRESS/ 1 ODT COMMAND. 

3. THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. STARTING 
AT 200C200G OR .R CVDRCB UNDER XXDP+),THE PROGRAM 
INITIALIZES ITSELF, PRINTS ITS IDCFIRST TIME ONLY) AND 
THEN PRINTS THAT THE DRV11-J CABLE IS REQUIREDCFIrtST TIME 
ONLY) AND THEN PRINTS; SWR^XXXXX NEW= 

WHERE XXXXXX REPRESENTS THE CURRENT VALUE OF THE SOFTWARE 

SWITCH REGISTER. IF NO CHANGES ARE REQUIRED IN THE SWITCH 

REGISTER THEN JUST HIT CARRIAGE RETURN. 

IF CHANGES ARE REQUIRED, THEN A NEW VALUE MAY BE TYPED 

FOLLOWED BY A CARRIAGE RETURN. 

REFER TO SECTION 5.0 FOR SWITCH REGISTER OPTIONS. 

4. IF THE FOLLOWING ERROR OCCURS RIGHT AFTER STARTUP IT IS 
POSSIBLE THAT THE DRV11J LOOPBACK CABLE MAY NOT BE INSTALLED 
OR WAS NOT INSTALLED PROPERLY: 

REG READ/WRITE ER 

ERRPC TSTNUM BUSADR EXPCT RCVD 

002224 000002 *164160 100700 000700 

♦BUSADR MAY BE DIFFERENT DEPENDING ON THE CSR OF THE DRV1U. 

5.0 SOFTWARE SWITCH REGISTER 

OPTIONS 






THE PROGRAM SWITCH DEFAULT MODE IS SWR = 000000 

U USING A VIDEO TERMINAL ,BIT 15 = KHALT ON ERROR) 

MAY BE HELPFUL IN KEEPING THE ERROR ON THE SCREEN. 

SWITCH OCTAL FUNCTION 



SW15=1 100000 HALT ON ERROR 

SUK=1 040000 LOOP ON TEST 

SW13=1 020000 INHIBIT ERROR TYPEOUTS 

SW11=1 004000 INHIBIT ITERATIONS 

SW09r1 001000 LOOP ON ERROR 

SW08=1 0004XX LOOP ON TEST IN SWR <7~0> 



S.2 CONTROL 



1. THE SOFTWARE SWITCH REGISTER 'SWREG* (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 

2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 



F 1 

CONTROL BY TYPING THE 'CONTROL 6 G' KEYS. THIS 

KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS SEQ 0005 

AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 

WITH A CARRIAGL RETURN. 

3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 

ERROR CONDITION WITH BIT15 SET (HALT ON ERROR), STEP #2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP *1 TO ALTER THE 
SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 
•P' (CONTINUE). 






ERROR REPORTING 



G 1 



SEQ 0006 



6*1 ERROR COMMENT 

ALL ERRORS hRE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS JO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 
THE ERROR C\N BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 

TO CONSERVE MEMORY SPACE FOR THE AK PROGRAM MEMORY 
REQUIREMENT, REGISTER 5 (R5) IS RESERVED FOR THE 
S8DDAT LOCATION (11"'* 

EXAMPLE: CMP $GDDAT,(R5) IS THE SAME AS CMP $GDDAT,$BDDAT. 

a. 2.1 ERROR DATA 

ERROR TITLE HEADING 

ERRPC TSTNUM BUSADR EXPCT RCVD 

XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 



ERRPC 
TSTNUM 

BUSAD* 

EXPCT 

RCVD 



LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
TEST NUMBER WHERE THE ERROR OCCURRED 
DRV11J BUS REG ADDRESS OF CONCERNED OPERATION 
DATA THAT WAS EXPECTED 
DATA THAT WAS RECEIVED 



!o.<?.2 ERROR TITLES 

R r G TIMEOUT ER 
; REG READ/WRITE ER 

IRR REG ER 

i 

ACR REG ER 
JMR RFG ER 
iSR REG fc'R 
] {HIP STAT ER 



REGISTER TIMEOUT ERROR 
REGISTER READ/WRITE ^RROR 
INTERRUPT REQUEST REGISTER ERROR 
AUTOCLEAR REGISTER ERROR 
INTERRUPT MASK ROISTER ERROR 
INTERRUPT SERVICc REGISTER ERROR 
CHIP STATUS ERROR 



"? A 



f 



H 1 

MISCELLANEOUS 

SEG 0007 



:?.1 0RV11-J BUS ADDRESS MODIFICATION 

MODIFY LOCATION *$BASE' (ADDR: 1244) IF BASE BUS ADDRESS 
IS NOT 164160. 

17.2 XXDP/APT NOTES 

j THIS DIAGNOSTIC DOES SUPPORT ACT AND APT ENVIRONMENTS. 

J7.3 POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIAT r HARDWARE). 

\'A MULTIPLE DRV11J INTERFACE TESTING 

THIS PROGRAM DOES NOT "AUTO-SIZE" THE NUMBER OF DKVlU'S CONNECTED. 
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 4 DRV11J INTERFACES 
WITH CONTIGUOUS BUS ADDRESSES. THIS iS ACCOMPLISHED 
BY THE USER SETTING UP LOCATION 'DEVM* (ADDR: 1246) 
* WITH A BIT flAP INDICATING WHAT INTERFACES ARE TO BE TESTED. 
I.E. BITO = 1 SAYS TEST 1ST DRV11J, 
BIT! = 1 SAYS TEST 2ND DRV11J 
BIT2 = 1 SAYS TEST 3RD DRV11J 
j BIT3 = 1 SAYS TEST 4TH DRV1U 

1ST UNIT = STARTING CSRA 164160 SD5VM = 1 

2ND UNIT = STARTING CSRA 164140 SDEVM = 3 

3RD UNIT = STARTING CSRA 164120 SDEVM = 7 

4TH UNIT = STARTING CSRA 164100 $DEVM = 17 

\ 7.5 RESTRICTIONS 
i H.O FXFCUTION TIME 



EXECUTION TIME RANGES FROM ABOUT <5 SECONDS ON FIRST 
PASS WITH NO ITERATIONS TO <20 SECONDS WITH ITERATIONS 
ENABLED AFTER FIRST PASS.PER DRV11J UNIT CONNECTED. 
AN 'TND PASS" MESSAGE INDICATES ALL TESTS HAVE COMPLETED 
ON ALL SELECTED UNITS. 
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;9.0 PROGRAM TEST DESCRIPTIONS SEQ 0008 

GENERAL 

THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DATA PATHS O r THE DRV11J OPTION. 
TESTING IS ACCOMPLISHED WITH THE AID OF ,'HE 
DRV11J LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 
! A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
AT THE BEGINNING UF THE LISTING. THE COMMENT FIELD WITHIN 
EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 

I TESTING WITH THE DRV1U CABLE ALLOWS FOR TESTING 
OF PORT A WITH PORT C AND THE TESTING OF PORT B 
WITH PORT D. 

J9.1 TESTS T1-T22 REGISTER CHECKING 

; THFSF. TESTS WILL WRITE/READ PORTS A TO C 

AND WRITE/READ PORTS B TO D WITH FLOATING 
' ONES AND FLOATING ZEROS. GROWING ONES AND 

GROWING ZEROS AND DATA PATTERNS. 

TESTS ARE PERFORMED TO INSURE INTERACTION WITH 

CONNECTED PORTS AND NO INTERACTION BETWEEN 
| UNCONNECTED PORTS. 

I 9.2 T22-U2 INTERRUPT CONTROL RFGISTER CHECKING 

TESTS ARE MADE TO THE INTERRUPT CONTROL CHIP 
! REGISTERS IRR,ACR,I.1K AND LIMITED TESTING OF 

ISR RfGISTFR UNTIL INTERRUPTS ARE PERFORMED. 

TESTS ARE PERFORMED ON THE REGISTERS WITH 
! FLOATING ONES, FLOATING ZEROS, GROWING ONES 

AND GROWING ZEROS. CHIP RESET CAPABILITIES 
i ARE TESTED AS WELL AS UNIQUENESS OF REGISTERS 
; WITHIN A CHIP GROUP AND THL UNIQUENESS OF 

ONE GROUP'S REGISTERS TO ANOTHER GROUP'S 
I RFGISTERS. 

{9.3 TEST 43 - TEST STATUS BITS 6INT V S2, S1, SO, 6P1 ,GP2 

EXERCISE THE STATUS BITS S2.S1.S0 AND GINT FOR 
EACH GROUP CHIP BY SETTING SINGLE IRR BITS TO CAUSE THE 
I STATUS BITS TO GO FROM 120 TO 12? '. EACH 1RZ BIT 

JS THEN MASKED TO RETURN STATUS BACK TO ORIGINAL 
STATUS WITH NO IRR BITS SET. 

\ ^.4 T44-T47 POLLED MODE TESTING 

THIS TEST WILL WRITE PATTERNS INTO DBRA WITH 
EITHER LOW TO HIGH OR HIGH TO LOW POLARITirS. 
A'TFR PLACING ALL ONES IN DBRA AND THEN SELECTING 
ACTIVE LOW-CLEARING DBRA WILL NOW SET IRR BITS 
! 0-7, GROUP 1 AND IRR BITS0-3-GR0UP2. 

THE RPLY SIGNALS WILL SET IfiR BITS 4-7 
WHN WRITING DBRA IN OUTPUT MODE, THIS WILL 
SET )H£ RPLY FOR DBRC. (IRR6, GROUP 2) 
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UHEN READING DBRC IN INPUT MODE WILL SET 

THE RPLY FCR DBRA.CIRR BIT 4, GROUP 2) SEQ 0009 

! UHEN WRITING DBRB IN OUTPUT MODE. "HIS WILL 
I SET THE RPLY FOR DBRDORR B1T7,GR0UP2) 

UHEN READING DBRD IN INPUT MODE /.HIS WILL 

SET THE RPLY FOR D8RBORR BIT5, GROUP 2). 
I TEST ALL DATA PATTERNS TO SET IRR BITS 

GROUP1 AND GROUP2 AND FOR THE SETTING OF RPLY 
! BITS IN THE GROUP 2 IRR REGISTER BY WRITING IN 
I OUTPUT MODE AND READING IN INPUT MODE. 

TEST THa, t NO RPLY BITS SET WHEN READING IN OUTPUT 

MODE AND WHEN WRITING IN INPUT MODE. 

!*.!> T50-T51 CSR'S WITH RESET 

SET UP CSR'S IN OUTPUT MODE AND CLEAR 
! DIRECTION BIT OUT OF EACH CSR EXCEPT FOR 

CSRA UH'CH WILL CLEAR DIR BIT AND I/E BIT. 

! -O.U L ISTING 
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SEQ 0010 



(1) 
\\) 
(1) 

CD 
13 
K 

IS 

16 

1/ 

18 

(1) 

n ) 

il) 

• 1 \ 
^ i ' 

i\) 
(1) 
(!) 
(]) 

<i> 

:v 

(p 

^ ! 
(1 
(1 

(1 

! ] 

n 
ti 

el 

(!) 

(1) 
<n 



(1) 
(1) 

(1) 
(1) 

(!) 

cn 
(i) 
m 
ti) 
d) 
M) 

* 1 } 
(1) 



000001 
16000U 



165400 
000001 



001.00 



000011 
000012 
000015 
000200 
17/776 

177774 

Mini 

i 77570 
177570 



000000 
00000' 
000002 
000003 
000004 
C00005 
000006 
000007 



VCVDRCA DRV1U DIAG 
DRV11J DIAG TST PRT1 



TST PRT1/J979//8ILL HEAVEY/ 



;GPA .HEADER 
TITLE CVDRCB 
"COPYRIGHT (C) 1979 
•DIGITAL EQUIPMENT CORP. 
•MAYNARD, MASS. 01754 

♦PROGRAM BY BILL HEAVEY 

•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981. 

* 

$TN=1 

$SWR=1 60000 ;;RUT ON ERROR, 

• EDITED TO PERMIT DRVS TO RUN 

* 6. PASGUANTONIO, 

isWR=1 65400 

$TN=1 

.SBTTL OPERATIONAL SWITCH SETTINGS 



LOOP ON TEST, INHIBIT ERROR 
ON FALCON (KXT11). 
JULY '81 



TYPOUT 

;;GPA 

;;GPA 



* 

• * 

;* 

• * 

* 

;* 
;* 
;* 

;* 

.SBTTL 



SWITCH 

""l5 " 

14 
13 
11 

9 

8 
BASIC 



USE 



HALT ON 
LOOP ON 
INHIBIT 
INHIBIT 
LOOP ON 
LOOP ON 
DEFINITIONS 



ERROR 

TEST 

ERROR TYPE0UT5 

ITERATIONS 

ERROR 

TEST IN SWR<7:0> 



.'♦INITIAL ADDRESu 
STACK= 1100 
.EQUIV EMi, ERROR 
.EQUIV IOT. SCOPE 



OF THE STACK POINTER *** 1100 *** 



;; BASIC 
;;BASIC 



DEFINITION OF 
DEFINITION OF 



ERROR CALL 
SCOPE CALL 



♦MISCELLANEOUS DEFINITIONS 

CODE FOR HORIZONTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 



HT= 

LF = 

CR= 

CRLF = 

PS- 

. EQUIV 

STKLMT= 

PIRQ= 

DSWR= 

DDISP= 



11 

12 

15 

200 

177776 

PS,PSW 

177774 

M1712 

177570 

177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



;*GLWEFAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1 = 
R2= 
R3= 
R4^ 
R5= 
R6^ 
R7= 



XO 
XI 
X2 
X3 
X4 
X5 
X6 
X7 



GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 
GENERAL 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
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SEQ 0011 



<1> 


000006 


<P 


000007 


(1) 




(1) 




(1) 


000000 


(1) 


000040 


(1) 


000100 


(1) 


000140 


CD 


000200 


f n 


000240 


(1) 


000300 


(1) 


000340 


<n 




(i) 




(i) 


100000 


(i) 


040000 


d) 


020000 


(i) 


010000 


(P 


004000 


(1) 


0020C0 


<p 


001000 


<p 


000400 


m ) 


000200 


t't> 


000100 


tP 


000040 


(i) 


000020 


<p 


000010 


r i } 


000004 


(i) 


000002 




000001 


CD 




c 1 ) 




(1) 




<P 




(1) 




(P 




(1) 




M) 




(1) 




iP 




<P 


100000 


(P 


040000 


(P 


020000 


(1) 


010000 


?P 


004000 


<P 


002000 


(1> 


001000 


C 1 5 


000400 


iP 


000200 


<P 


000100 


(1) 


000040 


i!) 


000020 


i 1 ! 


oooom 


(1) 


000004 



SP= 


X6 


PC= 


X7 


^PRIORITY LEVEL DEFIN 


PRO= 





PR1 = 


40 


PR2= 


100 


PR3= 


140 


PR4 = 


200 


PR5= 


240 


PR6= 


300 


PR 7= 


340 


;*' 'SWITCH REGISTER" SW 


SW15= 


100000 


SW14= 


40000 


SW13= 


20000 


SW12= 


10000 


SW11 = 


4000 


SW10= 


2000 


SW09= 


1000 


SW08= 


400 


SW07= 


200 


SW06= 


100 


SW05= 


40 


SW04 = 


20 


SW03= 


10 


SW02= 


4 


SW01 = 


2 


SW00= 


1 


.EQUIV 


SW09,SW9 


.EOUIV 


SW08,SW8 


.EQUIV 


SW07,SW7 


.EQUIV 


SW06,SU6 


.EQUIV 


SW05,SW5 


.EQUIV 


SW04,SW4 


.EQUIV 


5W03,SW3 


.EQUIV 


P^rSW? 


.EQUIV 


SWui.aWI 


.EQUIV 


SWOCSWO 


;*DATA BIT DEFINITIONS 


BIT15= 


100000 


BIT14= 


40000 


BJT13= 


20000 


BIT12^ 


10000 


BIT11= 


4000 


BIT10= 


2000 


BIT09= 


1000 


BK08= 


400 


BIT07= 


200 


BITC6= 


100 


BIT05= 


40 


BIT04= 


20 


BIT03-- 


10 


BIT02* 


4 



;; STACK POINTER 
;; PROGRAM COUNTER 



PRIORITY LEVEL 

PRIORITY LEVEL 1 

PRIORITY LEVEL 2 

PRIORITY LEVEL 3 

PRIORITY LEVEL 4 

PRIORITY LEVEL 5 

PRIORITY LEVEL 6 

PRIORITY LEVEL 7 



SWITCH DEFINITIONS 



(B1T00 TO BJT15) 



CVDRCB DRVlU 


DIAG TST 


CVDRC8.P11 


10-AUG-81 


/ 1 » 


U00002 


(1 ) 


000001 


<1) 




(1) 




CI) 




(1) 




CD 




(1) 




(1) 




(1) 




<n 




(!) 




(1) 




()) 




(1) 


000004 


(!) 


000010 


(1) 


000014 


(1 > 


000014 


<n 


000014 


<i) 


000020 


C 1 ) 


000024 


en 


000030 


<i) 


000034 


M) 


000060 


m 


000064 


in 


000240 




164160 


ill 


000001 


> 3 


100000 


?* 


000400 


*>4 

i*6 


001000 




?7 


000020 


28 


000030 


29 




30 


000040 


3! 


000050 


32 


000060 


3! 


000070 


34 




35 


000100 


36 


000110 


57 


000120 


38 


000130 


^Q 




40 


000140 


41 


000160 


4c 1 


000170 


45 




44 


000200 


«.s 


000240 


46 




4 7 




48 


000240 


49 


000244 
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S£Q 0012 



BIT01= 
BITOO^ 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.£QUIV 
.EQUIV 
.EQUIV 
•EQUIV 
.EQUIV 

;*8ASIC 

ERRVEC= 

RESVEC= 

TBITVED 

TRTVEC= 

BPTVEC= 

IOTVEC= 

PWRVEC= 

EMTVEC= 

TRAPVEC 

TKVEC= 

TPVEC= 

FIRQVEC 

ABASE^ 

ADEVM= 

RDY= 

DIR= 

IE= 



2 

1 
BIT09 

BIT08 
BIT07 
RIT06 
LIT05 
BIT04 
BIT03 
BIT02 
BIT01 
BITOO 



,BIT9 
,BIT8 
,BIT7 
,BIT6 
,BIT5 
,BIT4 
,BIT3 
,8112 
,BIT1 

,bito 



"CPU" TRAP 
4 

10 
=14 

14 
14 
20 
24 
30 

34 

60 
64 
=240 

164160 

1 

BIT15 

BIT8 

BIT9 



OTHER ERRORS 
ILLEGAL INSTRUCTIONS 



**SCOPE** 



VECTOR ADDRESSES 

TIME OUT AM 
RESERVED fiO 
"T" BIT 
TRACE TR-.P 

BREAKPOMT TRAP (8PT) 
INPUT/CJTPUT TRAP (IOT) 
POWER FAIL 

EMULATOR TRAP (EMT) **ERROR** 
"TRAP" TRAP 
TTY KEYBOARD VECTOR 
TfY PRINTER VECTOR 
PROGRAM INTERRUPT REQUEST VECTOR 
BASE ADDRESS 
DEFAULT TO ONE DRV11j 



;CHIP COMMAND SUMMARY 
CIRMR= 20 
CSIRMR= 30 



CIMR= 
CSIMR^ 
SIMR= 
SSIMR= 

CIRR= 

CSIRR= 

SIRR-- 

ssim= 



40 
50 
60 
70 

100 
110 
120 
130 



CHPISR= 140 
CISR= 160 
CSISR= 170 



lm:>04= 

LMD57= 

;CHIP 
MISR= 
MIMR= 



200 
240 

MODE BIT 
240 
244 



.-CLEAR IRR AND IMR 

;CLEAR SINGLE IRR AND IMR BIT 

; CLEAR IMR 

;CLEAR SINGLE IMR BIT 
;SET ALL IMR BITS 
;SET SINGLE IMR BITS 

; CLEAR IRR 

; CLEAR SINGLE IRx BITS 
;SET ALL IRR BITS 
;SET SINGLE IRR BITS 

;CLEAR HIGHES) PRIORITy ISR BIT 

;CLEAR ISR 

;CLEAR SINGLE ISR BIT 

;LOAD MODE BITS M0-M4 
;LOAD MODE BITS M5-M7 



PRESELECTION 
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N 1 

PAGE 



1-3 



50 
51 
52 
53 
54 
55 
56 
57 
58 

n) 
(1) 
(1) 
(1) 
tl) 
(1) 
(1) 
(1) 
(1) 
11) 

59 

60 
61 



000174 
0001/6 

000200 

000100 



000250 
000254 



000300 
000260 
000340 



000000 



000174 
000000 
OOOCOO 

000137 001402 

000100 

000104 000200 



SEQ 0013 



MIRR= 
MACR= 



250 
254 



.-CHIP WRITE 
PACR= 300 
PIMR= 260 
PVMA= 340 



PRESELECTION 



;PRESL«_ECT 
;PRESELECT 
;PRESELECT 



AUTO CLEAR REG. FOR WRITING 
IMR RFG, FOR WRITING 
VECTOR MEMORY ADDRESS 



,SBTTL TRAP CATCHER 



,=0 
*AL. UNUSED LOCATIONS FROM 4 - 776 CONTAIN A M .+2,HALT M 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

.=174 
DaSPREG: .WORD 



000002 



SWREG* .WORD 

.SBTTL STARTING ADDRESS(ES) 

JMP MS TART :;JUMP 

. = 100 

.WORD 104,200,2 



;; SOFTWARE 
;; SOFTWARE 



DISPLAY REGIS'! ER 
SWITCH REGISTER 



TO STARTING ADDRESS OF PROGRAM 

;1F '8 aVENT' ON BUS IS CONNECTED 
/IGNORE IT'S INTERRUPT - JUST DO A RTI 



CVDRCB DRV11J DJAG TST PRT1 
CVDRCB, P11 10-AUG-81 10:51 

63 
(1) 
(2) 
(1) 

(1) 000106 
(1) 000046 
(1) 000046 013070 
(1) 00005? 
(1) 000052 000000 
(1) 000106 

64 001000 

65 

66 

67 

68 
<1) 
(2) 
<1) 
(2) 

(1) 001000 
(1) 000024 
(1) 000024 000200 
(1) 000044 
(1) 000044 001000 
(1) 001000 
(2) 
(1) 
(1) 
(1) 

(1) 001000 
(1) 001000 000000 
(1) 001002 001170 
(1) 001004 000006 
(1) 001006 000024 
(1) 001010 000024 
(1) 001012 000031 



B 2 
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ACT11 HOOKS 

♦SBTTL ACT11 HOOKS 

; **************************************************************** 

/HOOKS REHIRED BY ACT11 

r vpc=. 



SEQ 0014 



.-46 

SENDAD 

,=52 

.WORD 

,-SSVPC 

.=1000 



.SBTTL APT PARAMETER BLOCK 



/SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

;;2)SET IOC. 52 TO ZERO 
;; RESTORE PC 

/LONGEST TEST TIME 
;1ST PASS RUN TIME 
/ADDITIONAL RUN TIME 



;***** **************************************************** ****** 

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

**************************************************************** 



.$X=. 

.=24 

200 

.=44 

SAPTHDR 

. = .$X 



;SAVE CURRENT LOCATION 

;SET POWER FAIL TO POINT TO START OF PROGRAM 

;FOR APT START UP 

;POINT TO APT INDIRECT ADDRESS PNTR. 

;POINT TO APT HEADER BLOCK 

;RESET LOCATION COUNTER 



;;*************************************************************** 

;SEWP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
/INTERFACE SPEC. 



SAPTHD 
SHIBTS 
SM8ADR 

STSTM: 

SPASTM: 

$UNITM: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 





$MAJL 

6. 

20. 

20. 



;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

/ADDRESS OF APT MAILBOX (BITS 0-15) 

;RUN TIM OF LONGEST TEST 

;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY: 

/ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 



$ETEND-$MAIL/2 //LENGTH MAI LBOX-E TABLE (WORDS) 



UNIT 
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69 






(1) 






(2) 






(1) 






(1) 






(1) 






(1) 




001100 


(1) 


001100 




(1) 


001100 


000000 


(1) 


001102 


000 


(1) 


001103 


000 


(1) 


001 10* 


000000 


(1) 


001106 


000000 


(1) 


001110 


000000 


(1) 


001112 


000000 


(1) 


001114 


000 


(1) 


001115 


001 


(1) 


001116 


000000 


(1) 


001120 


000000 


(1) 


001122 


000000 


(1) 


001124 


000000 


(1) 


001126 


000000 


(1) 


001130 


000000 


(1) 


001132 


000000 


(1) 


001134 


000 


(1) 


001135 


000 


(1) 


001136 


000000 


(1) 


001140 


177570 


(1) 


001142 


177570 


(1) 


001144 


177560 


(1) 


001146 


177562 


(1) 


001150 


177564 


(1) 


001152 


177566 


(1) 


001154 


000 


(1) 


001155 


002 


(1) 


001156 


012 


(1) 


001157 


000 


(1) 


001160 


000000 


(1) 


00K62 


000000 


(1) 


001164 


077 


(1) 


001165 


015 


(1) 


001166 


000012 


(2) 






<2) 






(2) 






(3) 






(2) 






(2) 


001170 




(2) 


001170 


000000 


(2) 


001172 


000000 


(2) 


001 1 74 


000000 


(2) 


001176 


000000 


(2) 


001200 


000000 


(2) 


001202 


000000 


(2) 


001204 


000000 


(2) 


001206 


000000 



MACY11 306(1063) 10-AUG-81 

COMMON TAGS 

.SBTTL COMMON TAGS 



10:58 
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SEQ 0015 



• ******** ************************************************ A******* 

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED W THE PROGRAM. 



SCMTAG: 

STSTNM: 

SERFLG: 

SJCNT: 

SLPADR: 

$LPERR: 

SERTTL: 

$ITEM8: 

SERMAX: 

SERrtPC: 

$GDADR: 

SBDADR: 

SGDDAT: 

SBDDAT; 



$AUTOB: 
SINTAG: 

SWR; 

DISPLAY 

$TKS: 

$TKB: 

$TPS: 

$TP8: 

SNULL: 

SPILLS 

SFILLC 

STPFLG 

STIMES 

SESCAPE 

$QUES: 

SCRLF : 

$LF: 

;;***** 

.S8TTL 



.=1100 

.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 

: .WORD 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 


:0 
.ASCII 
.ASCII 
.ASCIZ 












1 



















DSWR 

DDISP 




2 

12 




/?/ 

<15> 

<12> 



START OF COMMON TAGS 



CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
RESERVED- 



THE TEST NUMBER 
ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF 'GOOD 1 DATA 
ADDRESS OF 'BAD 1 DATA 
•GOOD' DATA 
'BAD 1 DATA 
-NOT TO BE USED 



AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 



ADDRESS OF SWITCH REGISTER 
ADDRESS OF DISPLAY REGISTER 
TTY KBD STATUS 
TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS * OF FILLER CHARACTERS REQUIRED 
INSERT FILL CHARS. AFTER A "LINE FEED" 
"TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
MAX. NUMBER OF ITERATIONS 
ESCAPE ON ERROR ADDRESS 
QUESTION MARK 
CARRIAGE RETURN 
LINE FEED 
********************************************************** 



APT MAI LBOX-E TABLE 



************************••<************************************* 



.EVEN 
SMAIL: 

SMSGTY; .WORD AMSGTY 

SFATAL: .WORD AFATAL 

STESTN; .WORD ATESTN 

SPASS: .WORD APASS 

SDEVCT: .WORD ADEVCT 

SUNIT: .WORD AUNIT 

SMSGAD: .WORD AMSGAD 

SMSGLG: .WORD AMSGLG 



APT MAJL80X 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
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SEQ 0016 



(2) 


001210 




(2) 


001210 


000 


(2) 


001211 


000 


(2) 


001212 


000000 


(2) 


001214 


000000 


(2) 


001216 


000000 


(2) 






(2) 






(2) 






(2) 






(2) 






(2) 






(2) 


001220 


000 


(2) 


001221 


000 


(2) 






(2) 






(2) 






(2) 






(2) 


001222 


000000 


(2) 






(2) 


001224 


000 


(2) 


001225 


000 


(2) 


001226 


000000 


(2) 


001230 


000 


(2) 


001231 


000 


(2) 


001232 


000000 


(2) 


001234 


000 


(2) 


001235 


000 


(2) 


001236 


000000 


<2) 


0.1240 


000000 


(2) 


001242 


000000 


(2) 


001244 


164160 


(2) 


001246 


000001 


(2) 


001250 


000000 


(2) 


001252 




(2) 







$ETABLE: 

$ENV: 

$ENVM: 

SSWREG: 

$USWR: 

$CPU0P: 

;* 

;* 
;* 

;* 
;* 

$MAMS1 ; 
$MTYP1 : 

;* 



.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



.BYTE 
.8Y T E 



*MAMS2: 

SMTYP2; 

SMADR2; 

SMAMS3: 

SMTYP3: 

$MADR3: 

SMAMS4: 

SMTYP4: 

SMADR4: 

SVECT1: 

$VECT2: 

S8ASE 

$DEVM 

$CDW1 

SETEND; 

.MEXIT 



.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



AMAMS1 
AMTYP1 



§MADR1: .WORD AMADR1 



AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AMAMS4 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDW1 



;APT ENVIRONMENT TABLE 
.•ENVIRONMENT BYTE 
.•ENVIRONMENT MODE BITS 
;APT SWITCH REGISTER 
;USER SWITCHES 
;CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

11/04=01.11/05=02.11/20=03.11/40=04.11/45=05 
11/70=06. PDQ=07. 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE.BLM1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC C0RE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
;;HIGH ADDRESS.BLM1 
MEM. LAST ADDR.=3 BYTES. THIS WORD AND LOW OF "TYPE 11 ABOVE 
HIGH ADDRESS.M.S. BYTE 
MEM. TYPE. BLKM2 
MEM. LAST ADDRESS, BLK#2 
HIGH ADDRESS.M.S. BYTE 
MEM.TYPE.BLM3 
MEM. LAST ADDRESS.BLK#3 
HIGH ADDRESS.M.S.BYTE 
MEM. TYPE .BLM4 
MEM. LAST ADDRESS.BLM4 
INTERRUPT VECTORS .BUS PRIORI fY#1 
INTERRUPT VECT0R*2BUS PRIORI TY*2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 
CONTROLLER DESCRIPTION W0RD#1 
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SEQ 0017 



(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 


001252 




70 






71 


001252 


016763 


72 


001254 


017115 


73 


001256 


017240 


74 


001260 


000000 


75 






76 






77 


001262 


017002 


78 


001264 


017115 


79 


001266 


017240 


80 

8'. 
b2 


001270 


000000 






83 


001272 


017024 


84 


001274 


017115 


85 


001276 


017240 


86 


001300 


000000 


87 






88 






89 


001302 


017037 


90 


001304 


017115 


91 


001306 


017240 


92 


001310 


000000 


93 






94 






95 


001312 


017052 


96 


001314 


017115 


97 


001316 


017240 


98 


001320 


000000 


99 






100 






101 


001322 


017065 


102 


001324 


017115 


103 


001326 


017240 


104 


001330 


000000 


105 






106 






107 






108 


001332 


017100 


109 


001334 


017115 


110 


001336 


017240 



.SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

;*N0TE1: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

;*N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

; POINTS TO THE ERROR MESSAGE 

; POINTS TO THE DATA HEADER 

.-POINTS TO THE DATA 

; POINTS TO THE DATA FORMAT 



; * 

;* 

* 'f 
; * 


EM 
DH 
DT 
DF 


SERRTB: 
,'ERkUR 


1 

EM1 
DH1 
DT1 



; ERROR 


2 

EN2 

DH1 
DT1 



; ERROR 


3 

EM3 
DH1 
DT1 



; ERROR 


4 

EM4 
DH1 
DT1 



; ERROR 


5 

EM5 

DH1 

DT1 




; ERROR 


6 

EM6 
DH1 
DT1 



; ERROR 


7 

EM7 
DH1 

DT1 



;REG TIMEOUT ER 
; ERRPC TSTNUM 
;$ERRPC TSTNUM 


BUSADR 
SBDADR 


EXPCT 

SGDDAT 


RCVD 
SBDDATCR5) 


;REG READ/WRITE 
; ERRPC TSTNUM 
; SERRPC TSTNUM 


ER 

BUSADR 

SBDADR 


EXPCT 
SGDDAT 


RCVD 
$BDDAT(R5) 


;IRR REG ER 
; ERRPC TSTNUM 
; SERRPC TSTNUM 


BUSADR 
SBDADR 


EXPCT 

SGDDAT 


RCVD 
SBDDAT(R5) 


,ACR REG ER 
; ERRPC TSTNUM 
; SERRPC TSTNUM 


BUSADR 
SBDADR 


EXPCT 
SGDDAT 


RCVD 
SBDDATCR5) 


;IMR REG ERROR 
;ERRPC TSTNUM 
; SERRPC TSTNUM 


BUSADR 
SBDADR 


EXPCT 
SGDDAT 


RCVD 
SBDDAT<R5) 


;ISR REG ERROR 
; ERRPC TSTNUM 
; SERRPC TSTNUM 


BUSADR 
SBDADR 


EXPCT 
SGDDAT 


RCVD 
$BDDAT(R5) 



CHIP STAT ER 

ERRPC TSTNUM BUSADR EXPCT RCVD 

SERRPC TSTNUM SBDADR SGDDAT SBDDAHR5) 
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111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 



001340 000000 



001342 
0G1344 
001346 
001350 
001352 
001354 
001356 
001360 



001362 
001364 
001366 
001370 
001372 
001374 
001376 
001400 



164160 
164162 
164164 
164166 
164170 
164172 
164174 
164176 



000000 
000001 
000000 
000000 
000000 
000000 

oooooo 
ooouoo 
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SEC 0018 



; BUS REGISTER ADDRESS POINTERS 



DRCSA: 
DRD8A: 
DRCSB: 
DRDB8: 
DRCSC: 
DRDBC: 
DRCSD: 
DRDBD: 



ABASE 

A8ASE+2 

ABASE+4 

A8ASE+6 

ABASE+10 

ABASE+12 

A8ASE+K 

ABASE+16 



;C0MM0N PROGRAM LOCATION(S) 



TSTNUM: 

DMAP: 

INTFLG: 

XXDP: 

IMRLOC: 

ISRLOC: 

IRRIOC: 

ACRLC'C: 





1 
.WORD 

• WORD 
.WORD 
.WORD 
Mi)R[> 

• WORD 



.•CONTAINS TEST NUM8ER ON ERROR 
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SEQ 0019 



139 

HO 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

<1> 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

<2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(1) 

(2) 

(2) 

(2) 

(2) 

(2) 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 



001402 



001402 
0(1406 
001410 
001414 

001416 

001422 
001430 
001436 
001444 
001452 
001460 
001466 
001474 
001502 
001506 
001512 
001520 
001526 



001534 
001540 
001546 
001554 
001562 
001570 

001572 
001574 
001600 
001602 
001610 
001616 

001622 
001626 
001634 
001636 
001644 
001644 
001650 
001654 
001660 
001664 
001666 
001674 
001702 
001710 
001716 
001720 
001726 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
01273/ 
01273? 
01273' 
012737 
005037 
005037 
112737 
012737 
012737 



013746 
012737 
012737 
012737 
022777 
001012 

000403 
012716 
000002 
012737 
012737 
012637 

005037 
132737 
001403 
012737 

005037 
005037 
005037 
004737 
001420 
042737 
042737 
042737 
023727 
001003 
012737 



001100 

001140 

001100 

015336 
000340 
015010 
OC0340 
01 0606 
000340 
016402 
000340 
001160 
001162 
000001 
001520 
001526 



000004 
001574 
177570 
177570 
^77777 



001602 

0001 76 
0001 74 
000004 

001176 
000200 

001212 

001172 
001170 
001174 
017272 

000040 
000040 
000040 
001244 



.SBTTL PROGRAM START 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 



001115 
001106 
001110 



000004 
001140 
001142 
177350 



001140 
001142 



001211 
001140 



000022 
000032 
000036 
164160 



START: 

.SBTTL 

;; CLEAR 

MOV 
CLR 
CMP 
BNE 
MOV 

.-.-INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
M0V8 
MJV 
MOV 

;;SJZE FOR A 



LOCATION TO BE CLEARED 
MEMORY LOCATION 



;;LOOP BACK IF NO 

;; SETUP THE 



STACK POINTER 



INITIALIZE THE COMMON TAGS 
THE COMMON TAGS ($CMTAG) AREA 

#$CMTAG,R6 ;;F1RST 

<R6) + ;; CLEAR 

#SWR,R6 ;;DONE? 

#1100, SP 
A FEW VECTORS 

#$SCOPE,a#IOTVEC ;;JOT VECTOR FOR SCOPE ROUTINE 

#340,a#IOTVEC+2 ;;LEVEL 7 

#$ERROR, 3JEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 

#340,a#EMTVEC+2 ;;LEVEL 7 

#$TRAP,a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 

#340,a#TRAPVEC+2;LEVEL 7 

#$PWADN,a#PWRVEC ;;POWER FAILURE VECTOR 

#340,a#PWRVEC+2 ;; LEVEL 7 

STTw.ES ; .-INITIALIZE NUMBER OF ITERATIONS 

*ESCAPE ;; CLEAR THE ESCAPE ON ERROR ADDRESS 

#1,$ERMAX ;;ALLOU ONE ERROR PER TEST 

#.,$LPADR ;; INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#.,$LPERR ;;SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



;; EQUAL 



64$ 
65$ 
66$ 



67$: 



174160 001244 



1000$: 



TO A 

MOV 

MOV 

MOV 

MOV 

CMP 

BNE 

BR 

MOV 
RTI 
MOV 
MOV 
MOV 

CLR 

BITS 

6E0 

MOV 

CLR 

CLR 

CLR 

CALL 

BEQ 

BIC 

BIC 

BIC 

CMP 

BNE 

MOV 



i » 



H , SETUP FOR A 
a*ERRVEC,-(SP) 
#64$,a#ERRVEC 
#DSWR,SWR 
#DDISP, DISPLAY 

#-i . aswR 

66$ 

65$ 
#65$, (SP) 



SOFTWARE SWITCH REGISTER* 
;SAVE ERROR VECTOR 
;SET UP ERROR VECTOR 
.-SETUP FOR A HARDWARE SWICH REGISTER 
;AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
.-BRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT = -1 
;BRANCH If NO TIMEOUT 
;SET UP FOR TRAP RETURN 



#SWREG,SWR 
#DISPREG, DISPLAY 
(SP) +,8#ERRVEC 

$PASS 

#APTSIZE,$ENVM 
67$ 
#$SWREG, SWR 

SFATAL 

$MSGTYP 

$TESTN 

FALCON 

1000$ 

#40.3*22 

#40,a#32 

#40,a#36 

$8ASE,#ABASE 

1000$ 

#174160, $BASE 



;POINT TO SOFTWARE SWR 

.-RESTORE ERROR VECTOR 

.•CLEAR PASS COUNT 
;TEST USER SIZE UNDER APT 
; YES. USE NON-APT SWITCH 
;NO,USE APT SWITCH REGISTER 

CLEAR ERROR NUMBER 

CLEAR MESSAGE TYPE 

CLEAR TEST NUMBER 
CHECK FOR FALCON (KXT11) 
BR IF NOT KXT11 SYSTEM 
YES, STRAP IOT... 

i^AND'fRAP TO LEVEL 6. 
IS $8ASE VIRGIN ?? 
BR IF NOT. 
YES, USE ENGINEERING DEFAULT 



GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
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153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
1/9 

:80 

181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
(3) 
(3) 
(2) 
199 
200 
201 
202 
203 
204 
205 



001726 
001732 
001734 
001742 
001744 
001752 
001754 
001762 
001764 



001772 
001776 
002000 
002004 
002006 
002012 
002014 
002020 



002024 
002030 
002032 
002034 
002040 
002046 
002054 
002060 
002064 
002072 
002074 
002100 
002104 
002106 
002112 
002116 
002120 
002124 
002130 
002136 



002142 
002144 
002150 
002152 
002160 
002164 
002170 
002174 



005737 
001410 
023737 
001410 
012737 
000-04 
12V27 
001003 
112737 



005227 
001012 
005737 
001403 
005737 
001404 
104401 
104401 



005737 
001001 
104406 
005037 
013737 

0<'»2 7 3 7 
0137C1 
010137 
032737 
001002 
000137 
012700 
010120 
062701 
022700 
001372 
012706 
012705 
013737 
106427 



000004 
005037 
005015 
012737 
013700 
012701 
0)003/ 
005010 
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000042 
000042 
177777 
001210 
000001 

177777 

001134 

001370 

016666 
016734 

001134 



001202 
A 01246 
(77760 
001244 
001342 
000001 

012746 
001342 

000002 
001 362 

001100 
001126 
001202 
000340 
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INITIALIZE THE COMMON TAGS 



001124 

002206 
001342 
000010 
001122 



000046 
001370 
000001 
001134 



001364 
001364 



001364 



; CHECK OPERATING ENVIRONMENT 



1$: 
2$: 



TST 

BEG 

CMP 

BEQ 

MOV 

BR 

CMPB 

BNE 



a#42 
1$ 

a*42,a#46 

2$ 

rf-1,XXDP 
2$ 

SENV,*1 
3$ 



MOVB *1,SAUT0B 



1-10 



ARE WE IN AC T/XXDP AUTO MODE? 

BRANCH IF NO 

IS IT ACT AUTO MODE? 

BRANCH I? YES 

SET XXDP CHAIN MODE INDICATOR 

ARE WE IN APT AUTO MODE? 

BRANCH IF NO 

SET AUTO MODE INDICATOR 



SEQ 0020 



•PRINT TITLE 
3$: INC 
BNE 
TST 
BEQ 
TST 
BEQ 
4$: TYPE 
TYPE 



IF NOT 
#-1 
5$ 

SAUTOB 
4$ 

XXDP 
5$ 

, TITLED 
,TLCABL 



IN ACT OR APT AUTO MODE 
FIRST TIME? 



001200 



•GET THE VALUE 
H: TST 

BNE 
6TSWR 
START1: CLR 
MOV 
BIC 
MOV 
MOV 
BIT 
BNE 
JMP 
NEXPAS: MOV 
NEXPA1: MOV 
ADD 
CMP 
BNE 
MOV 
MOV 
MOV 
MTPS 



IN THE SOFTWARE 
SAUTC& 
STAR11 

.UNIT 

$DEVM,DMAP 
*1 77760 .DtfAP 
SBASE.RI 
R1,DRCSA 
*1,DMAP 
NEXPAS 
NXDEV1 
*DRCSA f RO 
R1,(R0)+ 
#2,R1 

#DRD8D+2,R0 
NEXPA1 
#STACK,SP 
#$8DDAT,a5 
$UNIT,$DEVCT 
#PR7 



SKIP TITLE IF NO 

ARE WE IN AUTO MODE? 

BRANCH TO TITLE TYPEOUT IF NOT 

IS THE AUTO MODE UNDER XXDP? 

SKIP TITLE IF NOT 

PRINT OUT THE TITLE 

PRINT "DRV11J CABLE REQ'D" 



SWITCH REGISTER 
ARE WE IN AUTOMATIC MODE? 
BRANCH IF YES 

ASK FOR SWR INPUT FROM CONSOLE 
CLEAR UNIT NUMBER 
POSITION OF DRVII-J'S 
UP TO 4 DRVII-J'S ONLY 
GET BASE ADDRESS 
MAKE BUS REG. POINTER = SBASE 
IS FIRST DRV11-J SELECTED? 
YES 

ADVANCE BASE DRV11-J ADDRESS 
SET UP REGISTER ADDRESS POINTERS 
LOAD EM,R1 = DRV11-J CSRA ADDRESS 
DO POINTERS FOR ALL REGS, A THRU D 
ALL DONE? 
8R IF NOT 

ALWAYS RESET STACK 
INIT R5 WITH S8DDAT 
LOAD APT COUNTER WITH UNIT NO. 
SET PRIORITY TO 7 



**************************************************************** 

*TEST 1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 

;t ******** *************************** *************************** 



000004 



TST1: SCOPE 

CLR SGDDAT 

CLR <R5) 

MOV *2$ t a*ERRVEC 

MOV DRCSA.RO 

MOV #8.,Rl 

1$; MOV RO.SBDADR 

CLR (RO) 



NO DATA COMPARE 

NO DATA COMPARE 

SET UP TIMEOUT RETURN ADDRS 

SET UP 1ST DRV11 BUS ADRS 

SET UP REG COUNT 

SET UP CURRENT DRV BUS ADRS 

SEE IF THERE 
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206 002176 

207 002200 
203 002202 

209 002204 

210 002206 

211 002210 

212 002212 
213 

214 
(3) 
(3) 

(2) 002220 

215 002222 

216 002226 

217 002232 

218 002234 

219 002236 
220 

221 002242 

222 002250 

223 002256 

224 002260 

225 002264 

226 002270 

227 002272 

228 002274 

229 002300 

230 002306 

231 002310 

232 002314 

233 002320 

234 002322 

235 002324 

236 002330 

237 002336 

238 002342 
219 002344 

240 002350 

241 002354 

242 002356 

243 002360 

244 002366 

245 002374 

246 002376 

247 002402 

248 002406 

249 002410 
250 

251 
(3) 
(3) 

(2) 002412 

252 002414 

253 002420 

254 002424 

255 002430 



005720 
005301 
001403 
000771 
022626 
104001 
012737 



000004 
013700 
013701 
Gj5010 
005011 
010037 

012737 

112760 

011015 

042715 

023715 

001401 

10400? 

010137 

012737 

011115 

042715 

023715 

001401 

104002 

010037 

012737 

105060 

011015 

042715 

023715 

001401 

10s00? 

012737 

112761 

011015 

042715 

023715 

001401 

104002 



0000Q4 
004737 
013700 
013701 
112761 



001342 
001352 



001122 

100700 
000001 

000007 
001124 



001722 

000200 

000007 
001124 



001122 
100300 
000001 

000C07 
001124 



000300 
000001 

000007 
001124 
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T1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 



SEQ 0021 



000006 000004 



2$: 
3$: 



TST 
DEC 
BEO 
BR 

CMP 

ERROR 

MOV 



(R0) + 

R1 

3$ 

1$ 

<SP)+,(SP)+ 

1 



BUMP TO NEXT 
COUNT 8 OF THEM 
BR IF ALL DONE 
TRY NEXT 

FIX STACK SINCE NO 
BUS ADRS INDICATED 



*ERRVEC+2,a*ERRV§C ;RESTORE LOC 4 



RTI 

DID 



NOT RESPOND 



013124 
001342 
001352 
000001 



001124 

000001 



001124 



. . ************* 
;*TEST 2 

; ;*******•***** 

TST2: SCOPE 
MOV 
MOV 
CLR 
CLR 
MOV 



MOV 

MOVB 

MOV 

BIC 

CMP 

BEQ 

ERROR 



************************************************** 

TEST CSRA W/R DIR BIT, INT. CHIP REfb> STATUS 

********************************* *********** ****** 

DRCSA,R0 ;GET CSR ADDRESS 
DRCSCR1 ;ST0RE CSRC ADDRESS 
<R0) ;INIT CSRA 

(R1) ;INIT CSRC 

RO,$BDADR ; STORE CSR ADDRESS 

;SET UP EXPECTED DATA 
*RDYJDIR!BIT7!8IT6,$GDDAT 



100$: 



001124 



1$: 



001124 
000001 



2$: 



hJV 

BIC 

CMP 

BEO 

ERROR 

MOV 

MOV 

CLRB 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

MOVB 

MOV 

BIC 

CMP 

BEO 

ERROR 



*8IT0,KR0) 

<R0),(R5) 

#7,(R5) 

*GDDAT,(R5) 

100$ 

2 

R1,$8DADR 

#BIT7,$GDDAT 

<R1),(R5) 

#7,(R5) 

$GDDAT,(R5) 

1$ 

2 

R0,$8DADR 



SET DIRECTION BIT 

GET CSR DATA 

CLEAR UNDEFINED BITS 



CSRA ERROR 
STORE CSRC ADDRESS 
STORE EXPECTED 
STORE CSRC 

CLEAR UNDEFINED BITS 



;CSRC ERROR 
;CSRA ADDRESS 

<*RDY!BIT7!BIT6,$GDDAT 

KRO) ; CLEAR CSRA DIR BIT 

<R0),(R5) ;READ CSR 

#7,(R5) ;CLEAR UNDEFINED BITS 

$GDDAT,<R5) 

2$ ;;BR IF EQUAL 

2 

#8IT7!BIT6.$GDDAT 

#8IT0,KR1) ;CSRC TO OUTPUT MODE 

READ CSRA 

CLEAR UNDEFINED BITS 
CHECK IF RDY BIT CLEARED 
;BR IF EQUAL 
CSRA REG ERROR 



<R0),(R5) 

#7. (R5) 

$GDDAT,(R5) 

TST3 

2 



•;*******************************************************«******* 

;*TEST 3 TEST CSRA INT. ENABLE BIT 

;;*************!.************************************************* 

TST3: SCOPE 



000001 



JSR PCCLRCSR 

MOV DRCSA,RO 

MOV DRCSCR1 

MOVB *BJT0,KR1) 



CLEAR 15R REGISTER 
GET Ql^\ ADDRESS 
GET CSRl ADDRESS 
SET DIRECTION BIT CSRC 
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J 2 
MACY11 306(1063) 10-AUG-81 10:58 PAGE 1-12 
T3 TEST CSRA INT, ENABLE BJT 



SEQ 0022 



256 002436 

257 002442 

258 002450 
.159 002454 

260 002456 

261 002462 

262 002466 

263 002470 

264 002472 

265 00^500 

266 002504 

267 002506 

268 002512 

269 002516 

270 002520 
271 

272 
(3) 
(3) 

(2) 002522 

273 002524 

274 002530 

275 002534 

276 002540 

277 002546 
278 

279 002554 

280 002556 

281 002562 

282 002566 

283 002570 

284 002572 

285 002600 

286 002602 
28/' 002604 

288 002610 

289 002614 

290 002616 
291 

292 
293 
(3) 
(3) 

(2) 002620 

294 0026*2 

295 00262o 

296 002632 

297 002636 

298 002642 

299 002650 

300 002656 

301 002660 

302 002664 

303 002666 

304 002670 

305 002674 



010037 
012737 
012710 
011015 
042715 
023715 
001401 
104002 
012737 
105060 
011015 
042715 
023715 
001401 
104002 



000004 
004737 
013700 
010037 
012737 
112760 

011015 
C42715 
023715 
001401 
104002 
012737 
005010 
011015 
042715 
023715 
001401 
104002 



000004 
004737 
013700 
013701 
010037 
012737 
112760 
011015 
023715 
001401 
104002 
010137 
005037 



001122 
001300 
001000 

000007 
00112 



000300 
000001 

000007 
001124 



001124 



001124 1$: 



013124 
001342 
001122 
101700 
000003 



000007 
001124 



001124 
000001 



100300 001124 1$; 



000007 
001124 



MOV R0,$BDADR -STORE CSRA ADDRESS 

MOV #BIT9!BIT7!BIT6,$GDDAT 

MOV #IE,(RO> ;SET INTERRUPT ENA8LE BIT 

MOV <R05,<R5> 

BIC #7,<R5^ ;CLEAR UNDEFINED BITS 

CMP $GDDAT,(R5) 

BEG 1$ 

ERROR 2 ;WT. ENABLE ERROR, CSRA 

MOV #BIT7!BIT6,$GDDAT 

CLRB KRO) ;CLEAR 1/E BIT 

MOV <R0),(R5) 

BIC #7,(R5) ; CLEAR UNDEFINED BITS 

CMP $GDDAT,(R5) 

BEQ TST4 ;;8R IF EQUAL 

ERROR 2 ;CSRA ERROR 

;*TEST 4 TEST CSRA I/E,DIR BIT 

TST4: SCOPE 

JSR PCCLRCSR ;CLEAR CSR REGISTERS 

MOV DRCSA,RO ;GET CS&A ADDRESS 

MOV R0,$8DADR ;SAVE CSRA ADDPFSS 

MOV #101700, SGDDA1 /EXPECTED I/E,DIR 

MOVB #BIT1)6ITO,1<R0) 

;SET I/E AND DIR BIT 

MOV (R0),(R5) 

BIC #7,(R5) ;CLEAR UNDEFINED BITS 

CMP $GDDAT,(R5) 

BEO 1$ 

ERROR 2 ;CSRA ERROR 

MOV #RDV!BIT7!riIT6,$GDDAT 

CLR (RO) 

MOV <R0),(R5) 

BIC #7,<R5> ;CLEAR UNDEFINED BITS 

CMP $GDDAT,<R5) 

BEO TST5 ;;BR IF EQUAL 

ERROR 2 ;CSRA ERROR 



;*TEST 5 

;;************ 

TST5; SCOPE 
013124 JSR 

001346 MOV 

001356 MOV 

001122 MOV 

100400 001124 MOV 
000001 000001 MOVB 

MOV 
001124 CMP 

BEQ 
ERROR 
001122 100$; MOV 
001124 CLR 



*************************************************************** 

TEST CSRB W/R DIR BIT, INT CHIP RESET STATUS 

*************************************************** 



PCCLRCSR 

DRCSB,RO 

DRCSD,R1 

R0,$8DADR 

#RDY!DIR,$GDDAT 

#8IT0,1(R0> 

(R0),(R5) 

$GDDAT,(R5> 

100$ 

2 

R1,$BDADR 

SGDDAT 



CLEAR CSR REGISTERS 
GET CSR ADDRESS 
GET CSRD ADDRESS 
STORE CSR ADDRESS 
SET UP EXPECTED DATA 
SET DIRECTION BIT 
GET CSRB DATA 



CSRB ERROR 

STORE CSRD ADDRESS 

STORE EXPECTED 
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306 002700 

307 002702 

308 002706 

309 002710 

310 002712 

311 002716 

312 007 74 

313 002/30 

314 002732 

315 002736 

316 002740 

317 002742 

318 002746 

319 002754 

320 002756 

321 002762 

322 002764 
323 

324 
(3) 
(3) 

(2) 002766 

325 002770 

326 002774 

327 003000 

328 003004 

329 003010 

330 003016 

331 003024 

332 003026 

333 003032 

334 003036 

335 003040 

336 003042 

337 003046 

338 003054 

339 003056 

340 003062 

341 003066 

342 003070 

343 003072 

344 003076 

345 003104 

346 003110 

347 003112 

348 003116 

349 003122 

350 003124 

351 003126 

352 003134 

353 003142 

354 003144 

355 003150 

356 003154 

357 003156 
358 



011115 
023715 
001401 
1040C2 
010037 
012737 
105060 
011015 
023715 
001401 
104002 
005037 
112761 
011015 
023715 
001401 
104002 



000004 

004737 

013700 

013701 

010037 

012737 

112760 

011015 

042715 

023715 

001401 

104002 

010137 

012737 

011115 

042715 

023715 

001401 

104002 

010037 

012737 

105060 

011015 

042715 

023715 

001401 

104002 

012737 

112761 

011015 

042715 

023715 

001401 

104002 
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001124 



001122 
100000 
000001 

001124 



001124 
000001 

001124 



013124 
001352 
001342 
001122 
100600 
000001 

000007 
001124 



001122 
000300 

000007 
001124 



001122 
100200 
000001 

000007 
001124 



000200 
000001 

000007 
001124 
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T5 TEST CSRB W/R DIR BIT, INT CHIP RESET STATUS 



SEQ 0023 



001124 



000001 



MOV <R1),(R5) 

CMP $GDDAT,(R5) 

BEG IS 

ERROR 2 

1$: MOV RO,$BDADR 

MOV #RDY r $GDDAT 

CLRB KRO) 

MOV (R0),(R5) 

CMP $GDDAT,(R5) 

BEQ 2$ 

ERROR 2 

2$: CLR SGDDAT 

MOVB *8IT0,1(R1) 

MOV <R0),(R5) 

CMP $GDDAT,(R5) 

BEQ TST6 

ERROR 2 



;READ CSRD 



CSRD ERROR 
STORE CSRB ADDRESS 
STORE EXPECTED 
CLEAR CSR DIR BIT 
READ CSR 

;BR IF EOUAL 

STORE EXPECTED 
CSRD TO OUTPUT MODE 
READ CSRB 
RDY BIT CLEARED 
;BR IF EQUAL 
CSRB REG ERROR 



•TEST 6 TEST CSRC W/R DIR BIT, INT CHIP RESET STATUS 



TST6: 



001124 
000001 



001124 



100$: 



001124 



1$: 



001124 
000001 



2$: 



SCOPE 

JSR 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

MOV 

CLRB 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

M0V8 

MOV 

BIC 

CMP 

BEQ 

ERROR 



PCCLRCSR ;CLtAR CSR REGISTERS 
DRCSCRO ;6ET CSR ADDRESS 
DRCSA,R1 ;GET CSRA ADDRESS 
RO,$BDADR ;STORE CSR ADDRESS 
*RDV!DIR!BIT7,SGDDAT 



08JTO.KRO) 

<R0).<R5) 

#7,(R5) 

$GDDAT,(R5) 

100$ 

2 

R1,$BDADR 

#8IT7!BIT6,$GDDAT 

(R1),(R5) 

#7,<R5) 

$GDDAT,(R5) 

1$ 

2 

R0.5BDADR 

*RDY!BIT7,*(JDDAT 

KRO) 

(R0).(R5> 

*7,<R5) 

$GDDAT,(R5) 

2$ 

2 

*8IT7,$GDDAT 

#8IT0,1(R1) 

(R0),(R5) 

*7,(R5) 

$GDDAT,(R5) 

TST7 

2 



;SET DIRECTION BIT 

;GET CSH DATA 

;CLEAR UNDEFINED BITS 



STORE CSR ADDRESS 

READ CSRA 

CLEAR UNDEFINED BITS 

CHECK CSRA 

CSRA ERROR 

STORE CSR ADDRESS 

STORE EXPECTED DATA 

CLEAR CSR DIR BIT 

READ CSR 

CLEAR UNDEFINED BITf 

;BR IF EQUAL 

EXPECTED DATA 

CSRA TO OUTPUT MOD£ 

READ CSRC 

CLEAR UNDEFINED BITS 

RDY BIT CLEARED 

;8R IF EQUAL 

CSRC REG ERROR 
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17 TEST CSRD W/R OIR BIT, INT CHIP RESET STATUS 



5EQ 0024 



359 
(3) 
(3) 

(2) 003160 

360 003162 

361 003166 

362 003172 

363 003176 

364 003202 

365 003210 

366 003216 

367 003220 

368 003224 

369 003226 

370 003230 

371 003234 

372 003240 

373 003242 

374 003246 

375 003250 

376 003252 

377 003256 

378 003264 

379 003270 

380 003272 

381 003276 

382 003300 

383 003302 

384 003306 

385 003314 

386 005316 

387 003322 

388 003324 
389 

390 
(3) 
(3) 

(?) 003326 

391 003330 

392 003334 

393 003340 

394 003346 

395 003352 

396 003356 

397 003362 

398 ^03370 
39<; C.3374 

400 005376 

401 003400 

402 003402 

403 003406 

404 003410 

405 C03412 
*06 003414 
407 003420 
408 



000004 
004737 
013700 
013701 
010037 
012737 
112760 
011015 
023715 
001401 
104002 
010137 
005037 
011115 
023715 
001401 
104002 
010037 
012737 
105060 
011015 
023715 
001401 
104002 
005037 
112761 
011015 
023715 
001401 
104002 



000004 
U04737 
012703 
012737 
013700 
013701 
010137 
112760 
011337 
005011 
0513H 
011115 
023715 
001401 
104002 
005723 
020327 
001363 



013124 
001356 
001346 
001122 
100400 
000001 

001124 



001122 
001124 

001124 



001122 
100000 
000001 

001124 



001124 
000001 

001124 



013124 
013232 
003370 
001342 
001344 
001122 
000001 
001124 



001124 



013532 



;*TEST 

;;**** 

TST7: 



f***************** *************************** ******* 

TEST CSRD W/R OIR BIT. INT CHIP RESET STATUS 



************i 

7 

********* ******** ********************************** ******** 



001124 
000001 



100$: 



001124 



1$: 



000001 



2$: 



;;**** 

;*TEST 

;;**** 

TST10: 



001110 
000001 



1$: 



2$: 



SCOPE 

JSR 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

CMP 

BEG 

ERROR 

MOV 

CLR 

MOV 

CMP 

BEQ 

ERROR 

MOV 

MOV 

CLRB 

MOV 

CMP 

BEQ 

ERROR 

CLR 

MOVB 

MOV 

CMP 

BEQ 

ERROR 

******** 

10 

******** 

SCOPE 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

CLR 

BIS 

MOV 

CMP 

BEQ 

ERROR 

TST 

CMP 

BNE 



PCCLRCSR 

DRCSD,RO 

DRCSB,R1 

RO.SBDADR 

#RDY!DIR, SGDDAT 

#BIT0,KR0> 

<R0),<R5) 

SGDDAT, <R5) 

100$ 

2 

R1,$EDADR 

SGDDAT 

(R1),(R5) 

SGDDAT, (R5) 

1$ 

2 

RO,SBDADR 

rfRDY, SGDDAT 

KRO) 

(R0),(R5) 

SGDDAT, (R5) 

2S 

2 

SGDDAT 

#BIT0,1(R1) 

<R0),(R5) 

SGDDAT, (R5) 

TST10 

2 



;CLEAR CSR REGISTERS 
;GET CSR ADDRESS 
;CSRB ADDRESS 
;STORE CSR ADDRESS 
;SET UP EXPECTED DATA 
;SET DIRECTION BIT 
;GET CSR DATA 



;STORE CSRB ADDRESS 
;$TORE EXPECTED 



CSRB ERROR 
STORE CSRD ADDRESS 
STORE EXPECTED 
CLEAR CSR DIR BIT 
READ CSR 

;8R IF EQUAL 

EXPECTED 

CSRD TO OUTPUT MODE 

READ CSR 

RDY BIT CLEARED 

;BR IF EQUAL 

CSRD REG ERROR 



*************************************************** 

TEST DBRA W/R IN OUTPUT MODE 
*************************************************** 



PCCLRCSR 

#8EGPAT,R3 

*1S,SLPERR 

DRCSA,RO 

DRD8A,R1 

R1,S8DADR 

#8IT0-1(R0) 

(R3), SGDDAT 

(R1) 

<R3),(R1) 

(R1MR5) 

SGDDAT, (R5) 

2$ 

2 

<R3) + 

R3,*ENDDAT 

1$ 



CLEAR ALL CSRS 

GET DATA PATTERN TA8LE 

SET UP SCOPE ADDRESS 

GET CSRA 

GET DBRA ADDRESS 

STORE DBRA ADDRESS 

SET CSRA IN OUTPUT MODE 

SAVE EXPECTED DATA 

CLEAR DBRA 

WRITE INTO DBRA 

READ DBRA 

CHECK W/R DBRA 

NEXT PAT. IF EQUAL 

DBRA W/R ERROR 

INC FOR NEXT PATTERN 

CHECK FOR END 

DO NEXT PATTERN 



CVDRCB DRV11J D1AG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 



409 








(3) 








(3) 








(2) 


003422 


000004 




410 


003424 


004737 


013124 


411 


003430 


012703 


013232 


412 


003434 


012737 


003464 


41 j 


0034<^ 


013700 


001346 


414 


003446 


013701 


001350 


415 


003452 


010137 


001122 


416 


003456 


112760 


000001 


417 


003464 


011337 


001124 


418 


003470 


005011 




419 


003472 


051311 




420 


003474 


011115 




421 


003476 


023715 


001124 


422 


003502 


001401 




423 


003504 


10O02 




424 


003506 


005723 




425 


003510 


020327 


013532 


426 


003514 


001363 




427 








428 








429 








(3) 








(3) 








(2) 


003516 


000004 




^30 


003520 


004737 


015124 


431 


C03524 


01?703 


013^32 


432 


003530 


012737 


003560 


433 


003536 


013700 


001352 


434 


003542 


013701 


001354 


435 


003546 


010137 


001122 


436 


003552 


172760 


000001 


437 


003560 


011337 


001124 


438 


003564 


005011 




439 


003566 


051311 




440 


003570 


011115 




441 


003572 


023715 


001124 


442 


003576 


001401 




443 


003600 


104002 




444 


003602 


005723 




445 


003604 


020327 


013532 


446 


003610 


001363 




447 








448 








449 








(3) 








(3) 








(2) 


003612 


0G0004 




450 


0036H 


004737 


013124 


451 


C03620 


012703 


013232 


452 


003624 


012737 


003654 


453 


003632 


013700 


001356 


454 


003636 


013701 


0)1360 


455 


003642 


010137 


001122 



MACY11 306(1063) 10-AU6-81 10:58 PAGE 1-15 
T11 TEST DBRB W/R IN OUTPUT MODE 



SEQ 0025 



001110 



000001 



001110 



000001 



001110 



**************************************************************** 

11 

**y.*****i 



;*TEST 

; •**** 

TST11: 



TEST DBRB W/R IN OUTPUT MODE 
***************************** ********************** 



SCOPE 

JSR PCCLRCSR 

MOV *BEGPAT,R3 

MOV *1$,$LPERR 

MOV DRCSB,RO 

MOV DRDBB,R1 

MOV R1,$BDADR 

MOVB *BIT0,1(R0> 

1$; MOV (R3). SGDDAT 

CLR (R1) 

BIS (R3),(R1) 

MOV <R1),(R5) 

CMP $GDDAT,(R5) 

BEG 2$ 

ERROR 2 

2$: TST (R3) + 

CMP R3,#ENDDAT 

BNE 1$ 



CLEAR ALL CSRS 

GET DATA PATTERN TABLE 

SET UP SCOPE ADDRESS 

GET CSRB 

GET DBRB ADDRESS 

STORE DBRB ADDRESS 

SET CSRB IN OUTPUT MODE 

SAVE EXPECTED DATA 

CLEAR DBRB 

WRITE INTO DBRB 

READ DBRB 

CHECK W/R DBRB 

NEXT PAT, IF EOUAL 

DBRB W/R ERROR 

INC FOR NEXT PATTPRN 

CHECK FOR END 

DO NEXT PATTERN 



♦♦A************************************************************** 

;*TEST 12 TtST DBRC W/R IN OUTPUT MODE 

;•****************•******************** ****************** ****x*** 

TST12; SCOPE 
JSR 



PCCLRCSR 

MOV *8EGPAT,R3 

MOV #1$,$LPERR 

MOV DRCSCRO 

MOV DRDBCR1 

MOV R1,SBDADR 

M0V8 #BITOJ(RO) 

1$: MOV (R3),$GDDAT 

CLR <R1) 

BIS (R3), (Ml) 

MOV (R1),(R5) 

CMP $GDDAT,(R5) 

BEG 25 

ERROR 2 

2$: TST (R5)+ 

CW K3,*ENDDAT 

BN? 1$ 



CLEAR ALL CSRS 

GET DATA PATTERN TABLE 

JET UP SCOPE ADDRESS 

GET CSRC 

GET DBRC ADDRESS 

STORE DBRC ADDRESS 

SET CSRC IN OUTPUT MODf 

SAVE EXPECTED DATA 

CLEAR D8RC 

WRITE INTO DBRC 

READ DBRC 

CHECK W/R DBRC 

NEXT PAT. IF EQUAL 

DBRC W/R ERROR 

INC FOR NEXT PATTERN 

CHECK FOR END 

DO NEXT PATTERN 



;;*******************************%******************************* 

;*TEST 13 TEST DBRD W/R IN OUTPUT MODE 

;•***************************************» ***************** ****** 

TST13; SCOPE 



JSR 


PCCLRCSR 


•CLEAR ALL CSRJ 


MOV 


#8EGPAT,R3 


GET DATA PATTERN TABLE 


MOV 


#1$.$LPcRR 


•SET UP SCOPE ADDRESS 


MOV 


DRCSD,RO 


•GET CSRD 


MOV 


DRDBD,R1 


•GET DBRD ADDRESS 


MOV 


R1,$BDADR 


•STORE DBRD ADDRESS 



CVDRCB DRV11J DIAG TST PRT1 
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N 2 
MACY11 306(1063) 10-AU6-S1 10:58 PAGE 1-16 
T13 TEST DBRD W/R IN OUTPUT MODE 



SEQ 0026 



456 003646 

457 003654 

458 003660 

459 003662 

460 003664 

461 003666 

462 003672 

463 003674 

464 003676 

465 003700 

466 003704 



112760 
011337 
005011 
051311 
011115 
023715 
001401 
104002 
005723 
020327 
001363 



000001 
001124 



001124 



013532 



000001 MOVB 0BITO.KRO) 

1$: MOV <R3),$GDDAT 

CLR (R1) 

BIS (R3),(R1) 

MOV (R'i),(R5) 

CMP $GDDAT,(R5) 

BEQ 2$ 

ERROR 2 

2$: TST (R3) + 

CMP R3,#ENDDAT 

BNE 1$ 



SET CSRD IN OUTPUT MODE 

SAVE EXPECTED DATA 

CLEAR D8RD 

WRITE INTO DBRD 

READ D9P.D 

CHECK W/R DBRD 

NEXT PAT. IF EQUAL 

DBRD W/R ERROR 

IN FOR NEXT PATTERN 

CH, K FOR END 

DO .£XT PATTERN 



CVORCB DRV11J D1AG 1ST PRT1 
CVDRCB.P11 10-AUG-B1 10:51 



468 

469 

470 

(3) 

(3) 

(2) 003706 000004 

471 003710 004737 

472 

473 

474 

475 

476 003714 112760 

477 003722 112763 

478 003730 010037 

479 003734 012737 

480 003742 011015 

481 003744 042715 

482 003750 023715 

483 003754 001401 

484 003756 104002 

485 003760 010137 

486 003764 005037 

487 003770 011115 

488 003772 023715 

489 003776 001401 

490 004000 104002 

491 004002 010337 

492 004006 012737 

493 004014 011315 

494 004016 023715 

495 004022 001401 

496 004024 104002 

497 004026 010237 

498 004032 012737 

499 004040 011215 

500 004042 042715 

501 004046 023715 

502 004052 001401 

503 004054 104002 
504 

505 

(3) 

(3) 

(2) 004056 000004 

506 004060 004737 

507 

508 

509 

510 

511 004064 112760 

512 004072 112761 

513 004100 01 0037 

514 004104 012737 

515 0041 L' 011015 

516 004M4 042715 

517 004: J) 023715 



B 3 

MACY11 30G(1063) 10-AU6-81 10:58 PAGE 2 
T13 TEST DBRD W/R IN OUTPUT MODE 



SEQ 0027 



013124 



000003 000001 

000001 000001 
001122 

101700 001124 

000007 
001124 



001122 
000200 

000007 
001124 



013124 



;;**** 

;*TEST 

; ;**** 

TST14: 



001122 
001124 

001124 



001122 

100400 001124 

001124 



1$: 



2$: 



001124 



3$: 



******** 

14 

******** 

SCOPE 
JSR 



Move 

MOVB 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

CLR 

MOV 

CV 

BEQ 

ERROR 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR 



***** *********************************** *********** 

TEST CSR UNIQUENESS, CSRS (A-B),(C-D) 
***************************************************** 



PCCLRCSR 



03.1 <R0> 

#8IT0,1(R3) 

RO-SBDADR 

0101700 <&GDDAT 

<RO),(R§> 

#/*,(R5> 

$GDDAT,(R5> 

1$ 

2 

R1,$BDADR 

SGDDAT 

<R1),(R5) 

$GDDAT,(R5> 

2$ 

2 

R3.SBDADR 

#100400,$GDDAT 

(R3),(R5) 

$GDi)AT,(R5) 

3$ 

2 

R2,$8DADR 

#81 U. SGODAT 

<R2),(R5> 

#7,(R5) 

$GDDAT,(R5) 

TST15 

2 



; CLEAR ALL CSRS 

;CSRA = RO 

;CSRB = R1 

;CSRC = R2 

;CSRD = R3 

;CSRA OUTPUT 

;CSRD OUTPUT 



MODE, I /E 
MODE 



.•EXPECTED DATA 
;CLEAR UNDEFINED BITS 



;CSRA ERROR 
; CHECK CSR8 



;CSRB ERROR 



CSRD ERROR 
CHECK CSRC 
EXPECTED 



;;BR IF EQUAL 
;CSRC ERROR 



;;*************************************************************** 

;*TEST 15 TEST CSR UNIQUENESS, CSRS (A-D),(C-B) 

•;***************W******^ ****************** ********************** 

TST15: SCOPE 



000003 
000001 



001122 
1017 



000001 
000001 



001124 



000007 
001124 



JSR PCCLRCSR 



MOVB #3.1 (RC J 

MOVB #8IT0/,(R1) 

MOV R0 t $8DM)R 

MOV #101700.SGDDAT 

MOV (RO).(RS) 

BIC #7 f (A. c ) 

CMP $GDDA r ,(R5) 



CLR ALL CSRS 
CSRA = RO 
CSR8 = R1 
CSRC = R2 
CSRD = R3 
CSRA OUTPUT J /E 
CSRB OUTPUT MODE 
CSRA ADDRESS 



;CLEAR UNDEFINED BITS 



CVDRCB DRV11J DIAG TST PRT1 
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C 3 
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T15 TEST CSR UNIQUENESS, CSRS (A-D),(C-B) 



SEQ 0028 



518 004124 

519 004126 

520 004132 

521 004140 

522 004142 

523 004146 

524 004150 

525 004152 

526 004156 
52? 004164 

528 004166 

529 004172 

530 004176 

531 004200 

532 004202 

533 004206 

534 004212 

535 004214 

536 004220 

537 004222 
538 

539 
540 
(3) 
(3) 

(2) 004224 

541 004226 

542 004232 

543 004236 

544 004244 

545 004250 

546 004254 

547 004260 

548 004266 

549 004272 

550 004276 

551 004302 

552 004310 

553 004314 

554 004320 
555 

556 004326 

557 004330 

558 004334 

559 004340 

560 004342 

561 004344 

562 004352 

563 004356 

564 004360 

565 004364 

566 004370 

567 004372 

568 004374 

569 004402 

570 004406 



OOHOO 
01v>137 
012737 
011115 
023715 
001401 
104002 
010237 
012737 
011215 
042715 
023715 
001401 
104002 
010337 
005037 
011315 
023715 
001401 
104002 



000004 
004737 
012703 
012737 
013700 
013701 
013702 
112762 
010037 
005062 
105061 
112760 
011360 
016104 
012737 

011015 
042715 
023715 
001401 
104002 
012737 
01013? 
011115 
042715 
023715 
001401 
104002 
01373? 
011337 
010415 



001122 
100400 

001124 



001122 
000200 

000007 
001124 



001122 
001124 

001124 



013124 
013232 
004266 
001342 
001352 
001346 
000001 
001122 
000002 
000001 
000001 
000002 
000002 
100700 



000007 
001124 



000200 
001122 

000007 
001124 



001354 
001124 



BEQ 

1$: MOV 

001124 MOV 

MOV 
CMP 
BEQ 
ERROR 
2$: MOV 
001124 MOV 

MOV 
BIC 
CMP 
BEQ 
ERROR 
3$: MOV 
CLR 
MOV 
CMP 
BEC! 
FRrtOR 



;************* 

*TEST 16 

;************* 

TST16: SCOPE 
JSR 

MOV 

001110 MOV 

MOV 
MOV 
MOV 

000001 MOVB 
1$: MOV 
CLR 
CLRB 

000001 M0V8 

MOV 
MOV 

001124 MOV 



MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 



;CSRB ERROR 
; CHECK CSRC 



1$ 

R 1**80 ADR ; CHECK CSR8 

#100400.$GDDAT 

(R1),(R5) 

$GDDAT,(R5) 

2$ 

2 

R2,$BDADR 

*BIT7,$GDDAT 

(R2MR5) 

*7,(R5> 

$GDDAT,(R5> 

3$ 

2 

R3,$BDADR 

SGDDAT 

(R3),(R5) 

$GDDAT,<R5) 

TST16 

2 



;CSRC ERROR 



;;BR IF EQUAL 
;CSRD ERROR 



************************************************** 

TEST PORT A TO PORT C INTERACTION 

***tt ************************************** ******** 



001124 100$: 



001122 101$: 



PC.CLRCSR 

#BI:GPAT,R3 

m.SLPERR 

DRCSA.RO 

DRCSCR1 

DRCSB,R2 

#8IT0.1(R2) 

RO,$BDADR 

2<R2) 

1;R1) 

08ITO.KRO) 

(R3) f 2(R0) 

?.<Rl5-R4 

*RDYiDIR!8IT7!BI 

<R0),(R5) 

*7,(R5> 

$GDDAT,(R5> 

100$ 

2 

*8IT7.$GDDAT 

R1-SBDADR 

(R1),<R5) 

M7AR5) 

$GDDAT,(R5) 

101$ 

2 

DRDBC X $BDADR 

(R3),tGDDAT 

R4,(R5> 



; CLEAR ALL CSRS 

;GET DATA PATTERN TABLE 

;SET UP SCOPE ADDRESS 

;GET PORT A, CSRA ADDRESS 

;GET PORT C, CSRC ADDRESS 

;CSRB ADDRESS 

;CSRB IN OUTPUT MODE 

; STORE CSRA ADDRESS 

; CLEAR DBRB 

;PORT C-CSRC, INPUT MODE 

;SET CSRA IN OUTPUT MODE 

;WRITE INTO DBRA 

;READ DBRC 

T6,$GDDAT 

;CSRA DIR SHOULD STAY SET 

;READ CSRA 

;CLEAR UNDEFINED BITS 



;CSRA ERROR 

;CSRC ADDRESS 

•READ CSRC 

•CLEAR UNDEFINED BITS 



CSRC ERROR 
STORE DBRC ADDRESS 
SAVE EXPECTED 
DBRC CONTENTS 



CVDRCB DRV11J DIAG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 



D 3 
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T16 TEST PORT A TO PORT C INTERACTION 



SEQ 0029 



571 004410 

572 004414 

573 004416 

574 004420 
575 

576 004424 

577 004432 

578 004440 

579 004444 

580 004452 

581 004456 

582 004462 

583 004464 

584 r 4466 

585 004474 

586 G04500 

587 004504 

588 004510 

589 004512 

590 004514 

591 004516 

592 004522 
593 

594 
595 
(3) 
(3) 

(2) 004524 

596 004526 

597 004532 
5V8 004536 

599 004544 

600 004550 

601 004554 

602 004560 

603 004566 

604 004572 

605 004576 

606 004602 

607 004610 

608 004614 

609 004620 

610 004626 

611 004630 

612 004634 

613 004636 

614 004640 

615 004644 

616 004650 

617 004652 

618 004656 

619 004660 

620 004662 

621 004670 

622 004674 

623 004676 



023715 
001401 
104002 
005137 

013737 
013761 
105060 
112761 
016015 
023715 
001401 
104002 
013737 
005037 
016215 
023715 
001401 
104002 
005723 
020327 
001261 



000004 
004737 
012703 
012737 
013700 
013701 
013702 
112762 
010037 
005062 
105061 
112760 
011360 
016104 
012737 
011015 
023715 
001401 
104002 
005037 
010137 
011115 
023715 
001401 
104002 
013737 
011337 
010415 
023715 



001124 



001124 

001344 
001124 
000001 
000001 
000002 
001124 



001350 
001124 
000002 
001124 



013532 



013124 
013232 
004566 
001346 
001356 
001342 
000001 
001122 
000002 
000001 
000001 
000002 
000002 
100400 

001124 



001124 
001122 

001124 



001360 
001124 

001124 



001122 
000002 3$: 

000001 



001122 4$: 



CMP $GDDAT,(R5> 

BEQ 2$ 

ERROR 2 

2$: COM $GDDAT 

MOV DRD8A,$BDADR 

MOV $GDDAT,2(R1) 

CLR8 1(R0) 

MOVB #BIT0,1(R1) 

MOV 2(R0),(R5) 

CMP $GDDA:,(R5) 

BEQ 4$ 

ERROR 2 

MOV DRDC8,$BDADR 

CLR $GDDAT 

MOV 2(R2),(R5) 

CMP $GDDAT,<R5) 

BEQ 5$ 

ERROR 2 

5$: TST (R3)+ 

CMP R3,#ENDDAT 

BNE 1$ 



CHECK PORT CDBRC 

BEQ TO NEXT SUBTEST 

DBRC REG ERROR 

SET UP TO WRITE COM DATA FROM 

PORT C TO PORT A 

STORE DBRA ADDRESS 

WRITE PORT C, INPUT MODE 

MAKE PORT A INPUT MODE 

MAKE PORT C OUTPUT MODE 

READ PORT A, DBRA 

PORT A =PORT C? 

CHECK D6RB FOR NO DATA CHANGE 

PORT A,DBRA REG ERROR 

STORE DBRB ADDRESS 

CONTENTS SHOULD STAY ZERO 

READ DBRB FOR CLEAR 

CHECK FOR DBRB CLEAR 

YES, CONTINUE 

DBRB INTERACTION ERROR 

INC FOR NEXT PATTERN 

CHECK FOR END 

DO NEXT PATTERN 



;*TEST 17 TEST PORT B TO PORT D INTERACTION 



TST17: 



001110 

000001 

000001 
001124 



1$: 



100$: 



001122 101$: 



SCOPE 

JSR PCCLRCSR 

MOV *BEGPAT,R3 

MOV #1$,$LPERR 

MOV DRCSB,RO 

MOV DRCSD,R1 

MOV DRCSA,R2 

MOVB *BIT0,1(R2) 

MOV R0,$8DADR 

CLR 2(R2) 

CLRB KR1) 

MOVB #BIT0/I(R0) 

MOV (R3),2(R0> 

MOV 2(R1),R4 

MOV *RI»!DIR,$GDDAT 

MOV <RC),(R5> 

CMP $GDDAT,(R5> 

BEQ 100$ 

ERROR 2 

CLR $GDDAT 

MOV R1.SBDADR 

MOV (Rl),(R5> 

CMP $GDDAT,(R5) 

BEQ 101$ 

ERROR 2 

MOV DRDBD,$BDADR 

MOV <R3),$GDDAT 

MOV R4-CR5) 

CMP $GDDAT,(R5) 



CLEAR ALL CSRS 

6ET DATA PATTERN TABLE 

SET UP SCOPE ADDRESS 

GET PORT B. CSRB ADDRESS 

GET PORT D, CSRD ADDRESS 

STORE CSRA ADDRESS 

CSRA IN OUTPUT MODE 

STORE CSRB ADDRESS 

CLEAR DBRA 

PORT D-CSRD, INPUT MODE 

SET CSR8 IN OUTPUT MODE 

WRITE INTO DBRB 

DBRD CONTENTS 

SAVE EXPECTED 

READ CSRB 



CSRB ERROR 
SAVE EXPECTED 
SAVF CSRD ADDRESS 



CSRD ERROR 
SAVE DBRD ADDRESS 
SAVE EXPECTED 
DBRD CONTENTS 
CHECK PORT D,D8RD 



CVDRCB DRV11J DIAG TST 
10-AUG-81 



CVDRCB. P11 



677 005174 

678 005176 

679 005202 

680 005204 

681 005206 

683 005212 

684 005220 

685 005226 

686 005232 

687 005240 

688 005244 

689 005250 

690 005252 

691 005254 

692 005262 

693 005266 

694 005272 

695 005276 

696 005300 

697 005302 

698 005304 

699 005310 
700 

701 
(3) 
(3) 

(2) 005312 

702 005314 

703 005320 

704 005324 

705 005332 

706 005336 

707 005342 

708 005346 

709 005354 

710 005360 

711 005364 

712 005370 

713 005376 

714 005402 

715 005406 

716 005414 

717 005416 

718 005422 

719 005424 

720 005426 

721 005432 

722 0C5436 

723 005440 

724 005444 

725 005446 

726 005450 

727 005456 

728 005462 
"29 005464 



010415 
023715 
001401 
1C4002 
005137 

013737 
013761 
105060 
112761 
016015 
023715 
001401 
104002 
013737 
005037 
016215 
023715 
001401 
104002 
005723 
020327 
001261 



000004 

004< >/ 

012703 

012737 

013700 

013701 

013702 

112762 

010037 

005062 

105061 

112760 

011360 

016104 

012737 

011015 

023715 

001401 

104002 

005037 

0101S 7 

011115 

023715 

001401 

104002 

013737 

011337 

010415 

023715 



PRT1 
10:51 



001124 



001124 

001354 
001124 
000001 
000001 
000002 
001124 



001360 
001124 
000002 
001124 



013532 



MACY11 306(1063) 10-AUG-81 
T20 TEST PORT C 



F 3 
10:58 PAGE 2-4 
TO PORT A INTERACTION 



SiQ 0031 



013124 
013232 
005354 
001356 
001346 
001352 
000001 
001122 
000002 
000001 
000001 
000002 
000002 
100400 

001124 



001124 
001122 

001124 



001350 
001124 

001124 



001122 
000002 

000001 



2$: 
3$: 



001122 4$: 



5$: 



;;**** 



;*)EST 

;;**** 

TST21 : 



001110 

000001 

000001 
001124 



1$: 



100$: 



001122 101$: 



MOV 

CMP 

BEQ 

ERROR 

COM 

MOV 

MOV 

CLR6 

M0V8 

MOV 

CMP 

BEQ 

ERROR 

MOV 

CLR 

MOV 

CMP 

BEQ 

ERROR 

TST 

CMP 

BNE 

********** 

21 
********** 

SCOPE 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

CLR 

CLR8 

MOVB 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 

CLR 

MOV 

MOV 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

CMP 



R4,(R5) 

$GDDAT,<R5) 

2$ 

2 

$GDDAT 

DRD8C,$8DADR 

$GDDAT,2(R1) 

KRO) 

#BIT0,KR1) 

2(R0),(R5> 

$GDDAT,(R5) 

4$ 

2 

DRDBD,$BDADR 

$GDDAT 

2(R2),(R5) 

$GDDAT,(R5) 

5$ 

2 

(R3) + 

R3,AENDDAT 

1$ 



DBRA CONTENTS 

CHECK PORT A, DBRA 

BEQ TO NEXT SUBTEST 

DBRA REG ERROR 

SET UP TO WRITE COM DATA FROM 

PORT A TO PORT C 

STORE DBRC ADDRESS 

WRITE PORT A, INPUT MODE 

MAKE PORT C INPUT MODE 

MAKE PORT A OUTPUT MODE 

READ PORT CDBRC 

PORT C =PORT A? 

CHECK D8RD FOR NO DATA CHANGE 

PORT CDBRC REG ERROR 

STORE D8W> ADDRESS 

DBRD = EXPECTED 

READ DBRD FOR CLEAR 

IS DBRD CLEAR? 

YES.CONTINUE 

DBRD INTERACTION ERROR 

INC FOR NEXT PATTERN 

CHECK FOR END 

DO NEXT PATTERN 



******************************* A ***************** 

TEST PORT D TO PORT 8 INTERACTION 

************************************************* 



PCCLRCSR 

#8EGPAT,R3 

#1$,$LPERR 

DRCSD,RO 

DRCSB,R1 

DRCSCR2 

#8IT0,KR2) 

R0,$8DADR 

2(R2) 

KR1) 

#BITO.KRO) 

<R3),$(R0) 

2(R15,R4 

*RDY!DIR,$GDDAT 

CR0MR5) 

$GDDAT,<R5) 

100$ 

2 

$GDDAT 

R1,$BDADR 

(R1),(R5> 

$GDDAT,(R5> 

101$ 

2 

DRDB8,$BDADR 

(R3) f $GDDAT 

R4 x (fo) 

$GDDAT,(R5) 



CLEAR ALL CSRS 

GET DATA PATTERN TABLE 

SET UP SCOPE ADDRESS 

GET PORT D, CSRD ADDRESS 

GET PORT B, CSRB ADDRESS 

STORE CSRC ADDRESS 

CSRC IN OUTPUT MODE 

STORE CSRD ADDRESS 

CLEAR DBRC 

PORT 8, CSRB, INPUT MODE 

SET CSRD IN OUTPUT MODE 

WRITE INTO DBRD 

READ DBftB 

SAVE EXPECTED 

READ CSRD 



;CSRD ERROR 
;SAVE EXPECTED 
;SAVE CSRB ADDRESS 



CSRB ERROR 
SAVE DBftB ADDRESS 
SAVE EXPECTED 
DBRB CONTENTS 
CHECK PORT B,DBRB 



CVDRCB 0RV11J DiAG 1ST 
CVDRCB.P11 10-AUG-81 



730 005470 

731 005472 

732 005474 
733 

734 005500 

735 005506 

736 005514 

737 005520 

738 005526 

739 005532 

740 005536 

741 005540 

742 005542 

743 005550 

744 005554 

745 005560 

746 005564 

747 005566 

748 005570 

749 005572 

750 005576 
751 

752 
(3) 
(3) 

(2) 005600 

753 005602 

754 005606 

755 005612 

756 005616 

757 005622 

758 005626 

759 005632 

760 005640 

761 005644 

762 005646 

763 005652 

764 005654 

765 005656 

766 005662 

767 005666 

768 005670 

769 005674 

770 005676 

771 005700 

772 005704 

773 005706 

774 005712 

775 005714 

776 005716 

777 005720 

778 005722 

779 005726 

780 005732 
781 

782 



001401 
104002 
005137 

013737 
013761 
105060 
112761 
016015 
023715 
001401 
104002 
013737 
005037 
016215 
023715 
001401 
104002 
005723 
020327 
001266 



000004 

004737 

012702 

013700 

013701 

004737 

010137 

012737 

112710 

111115 

023715 

001401 

104005 

005037 

112710 

111115 

023715 

001401 

104003 

112710 

111115 

023715 

001401 

104004 

005302 

001405 

013700 

013701 

G00735 



PRT1 
10:51 



001124 

001360 
001124 
000001 
000001 
000002 
001124 



001354 
001124 
000002 
001124 



013532 



MACY11 30GH063) 10-AUG-81 
T21 TEST PORT D 



G 3 
10:58 PAGE 2-5 
TO PORT B INTERACTION 



SEC) Q0>2 



013124 
000002 
001342 
001346 
0^3174 
001122 
000377 
000244 

001124 



001124 
000250 

001124 



000254 
001124 



001352 
001356 



001122 
000002 

000001 



001122 4$: 



BEQ 2$ 

ERROR 2 

2$: COM 5GDDAT 

MOV DRDBD,$BDADR 

3$: MOV $GDDAT,2(R1) 

CLR8 1 (RO) 

M0V8 *BIT0,1(R1) 

MOV 2(R0),(R5) 

CMP $GDDAT,(R5) 

BEQ 4$ 

ERROR 2 

MOV DRDBC,$8DADR 

CLR SGDDAT 

MOV 2(R2),(R5) 

CMP $GDDAT,(R5) 

BEQ 5$ 

ERROR 2 

5$: TST (R3)+ 

CMP R3,*ENDDAT 

BNE 1$ 



BEQ TO NEXT SUBTEST 

D8R8 REG ERROR 

SET UP TO WRITE COM DATA FROM 

PORT 8 TO PORT D 

STORE DBRD ADDRESS 

WPITE PORT B, INPUT MODE 

PAKE PORT D INPUT MODE 

MKE PORT B OUTPUT MODE 

READ PORT D,DBRD 

PORT B =PORT D? 

CHECK D8RC FOR NO DATA CHANGE 

PORT D,DBRD REG ERROR 

STORE D8RC ADDRESS 

EXPECT D8RC = 

READ DBRC 

IS DBRC = 

YES, CONTINUE 

D8RC INTERACTION ERROR 

INC FOR NEXT PATTERN 

CHECK FOR END 

DO NEXT PATTERN 



001124 



;*TEST 22 TEST GROUP 1,2 IMR,IRR,ACR WITH CHIP RESET 

TST22: SCOPE 

JSR PCCLRCSR 

MOV *2,R2 

MOV DRCSA,RO 

MOV DRCSB-R1 

JSR PCCLRIRR 

111$: MOV R1-S8DADR 

MOV *377,$GDDAT 

MOVB *MIMR,(RO) 

MOVB (R1),(R5) 

CMP $GDDAT,(R5) 

BEQ 1$ 

ERROR 5 

1$: CLR $GDDAT 

MOVB *MIRR.(RO) 

MOVB (R1),(R5) 

CMP $GDDAT,(R5) 

BEQ 2$ 

ERROR 3 

2$: M0V8 *MACR,(RO) 

M0V8 (R1),(R5) 

CMP $GDDAT,(R5) 

BEQ 3$ 

ERROR 4 

3$: DEC R2 

BEQ TST23 

MOV DRCSCRO 

MOV DRCSD,R1 

BR 111$ 

• **************************************************************** 



; CLEAR ALL CSRS 

;TWO GROUPS TO TEST 

; STORE CSRA 

; STORE CSRB 

;CLEAR IRR REGISTERS 

; STORE ADDRESS 

; STORE EXPECTED DATA 

;LOAD MODE BITS FOR IMR 

;READ IMR REGISTER 



IMR REG ERROR 

STORE EXPECTED 

LOAD MODE BITS FOR IRR 

READ IRR REGISTER 



;IRR REG ERROR 

;LOAD MODE BITS FOR ACR 

;READ ACR REGISTER 



;*CR REG ERROR 
.•FINISHED BOTH ',rtOUPS? 
;;BR IF EQUAL 



CVORCB DRV1U D1AG 1ST PRT1 
CVDRCB.P11 10-AUG-81 10:51 



MACY11 306(1063) 10-AUG-81 
T23 TEST GROUPS 



H 3 
10:58 PAGE 2-6 
1 AND 2 ACR UNIQUENESS 



SEQ 00 



j,5 



(3) 
(3) 

(2) 005734 

783 005736 

784 005742 

785 005746 

786 005752 

787 005756 

788 005762 

789 005766 

790 005774 

791 006000 

792 006004 

793 006010 

794 006012 

795 006016 

796 006020 

797 006022 

798 006026 

799 006034 

800 006036 

801 006042 

802 006044 

803 006046 

804 006052 

805 006056 

806 006060 

807 006064 

808 006066 

809 006070 

810 006074 

811 006076 

812 006102 

813 006104 

814 006106 

815 006110 

816 006114 

817 006116 

818 006122 

819 0061 24 

820 006126 

821 006130 

822 006132 

823 006136 

824 006142 
825 

826 

(3) 

(3) 

(2) 006144 

827 

828 006146 

829 006152 

830 006156 

831 006162 

832 006166 



000004 

004737 

013700 

013701 

012703 

004737 

010137 

012737 

112710 

112710 

113711 

111115 

023715 

001401 

104004 

112710 

012737 

111115 

023715 

001401 

104005 

112710 

005037 

111115 

023715 

001401 

104006 

112710 

111115 

023715 

001401 

10*903 

105010 

112710 

mil, 

023715 
001401 
104004 
005303 
001405 
013700 
013701 
000707 



000004 

004737 
013700 
013701 
012703 
010137 



000240 
001124 

001124 



000250 
001124 

000254 
001124 



001352 
001356 



001124 



013124 
001342 
001346 
000002 
013174 
001122 
000252 
000254 
000300 
001124 

001124 



000244 

000377 001124 

001124 



;*TEST 
TST23: 



23 TEST GROUPS 1 AND 2 ACR UNIQUENESS 
*********************************************************** 



111$: 



1$: 



2$: 



3$: 



4$: 



5$: 



SCOPE 

JSR 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

M0V8 

movs 

M0V8 

M0V8 

CMP 

BEQ 

ERROR 

MOVB 

MOV 

MOVB 

CMP 

BEQ 

ERROR 

MOVB 

CLR 

MOVB 

CMP 

BEQ 

ERROR 

MO^'B 

MOVB 

CMP 

BEQ 

ERROR 

CLRB 

MOVB 

MOVB 

CMP 

BEQ 

FRROR 

DEC 

BEQ 

MOV 

MOV 

BR 



PCCLRCSR 

DRCSA,RO 

DRCSB,H1 

*2,R3 

PCCLRIRR 

R1,SBDADR 

#252,$GDDAT 

#MACR,(RO) 

#PACR,(RO> 

$GDDAT,(R1) 

<R1),(R5) 

$GDDAT,(R5) 

1$ 

4 

*MIMR,(RO) 

#377,$GDDAT 

(R1),(R5) 

SGDDAT,(R5) 

2$ 

5 

#MISR,(RO) 

SGDDAT 

<R1),(R5> 

SGDDAT, (R5) 

3$ 

6 

/*MIRR,(RO) 

(R1),(R5) 

SGDDAT, (R5) 

4$ 

3 

(RO) 

#MACR,(RO) 

(R1),<R5> 

SGDDAT, (R5) 

5S 

4 

R3 

TST24 

DRCSCRO 

DRCSD,R1 

111$ 



CLEAR ALL CSRS 

CSRA ADDRESS 

CSRS ADDRL'SS 

COUNTER FOR TESTING TWO GROUPS 

CLEAR IRR REGS WITH CHIP RESET 

STORE ADDRESS 

STORE EXPECTED 

LOAD MODE BITS FOR ACR 

PRESELECT ACR FOR WRITING 

WRITE INTO DATA PORT 

STORE DATA FOR COMPARt 

CHECK ACR RESULTS 

ACR ERROR 

CHANGE TO IMR REGIST5* 

STORE EXPECTED 

READ IMR 

SHOULD STILL BE ALL 1*S 

IMR REG ERROR 

LOAD MODE BITS FOR ISR 

STORE EXPECTED 

READ ISR 

ISR SHOULD BE CLEARED 

;ISR REG ERROR 

;LOAD MODE BITS FOR IRR 

;READ IRR 

;IRR SHOULD BE CLEARED 

lm REG ERROR 

CHIP RESET GROUP 1 

LOAD MODE BITS FOR ACR 

READ ACR 

ACR SHOULD BE CLEARED 

ACR REG ERHOR 

TEST GROUPS 1 AND 2 

;BR IF BOTH GROUPS TESTED 

GROUP 2 CONTROL PORT 

GROUP 2 DATA PORT 

TEST GROUP 2 ACR UNIQUENESS 



*************************************************************** 

;*TEST 24 TEST GROUPS 1 AND 2 IMR UNIQUENESS 

*************************************************************** 

TST24: SCOPE 



013174 
001342 
001346 
000002 
001122 



GPA 



111$: 



JSR 


PCCLRCSR 


JSR 


PCCLRIRR 


MOV 


DRCSA,RO 


MOV 


DRCSB,R1 


MOV 


*2,R3 


MOV 


RMBDADR 



CLEAR ALL CSRS 

; *** VDRCA1 CHANGES THIS *** ;;GPA 

CSRA ADDRESS 

CSRB ADDRESS 

COUNTER FOR TWO GROUP TESTING 

STORE ADDRESS 



CVDRCB DRV11J 0]AG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 



MACY11 30GC1063) 10-AUG-81 
T24 TEST GROUPS 



I 3 
10:58 PAGE 2-7 
1 AND 2 I MR UNIQUENESS 



SEH 0034 



833 


006172 


012737 


000252 001124 


834 


006200 


112710 


000244 


835 


006204 


112710 


000260 


836 


006210 


113711 


001124 


837 


006214 


111115 




838 


006216 


023715 


001124 


839 


006222 


001401 




840 


006224 


104005 




841 


006226 


112710 


000254 


842 


006232 


005037 


001124 


843 


006236 


111115 




844 


006240 


023715 


001124 


845 


006244 


001401 




846 


006246 


104004 




847 


006250 


112710 


000240 


848 


006254 


111115 




849 


006256 


023715 


001124 


850 


006262 


001401 




851 


006264 


104006 




852 


006266 


112710 


000250 


853 


006272 


111115 




854 


006274 


023715 


001124 


855 


006300 


001401 




856 


006302 


104003 




857 


006304 


105010 




858 


006306 


112710 


000244 


859 


006312 


012737 


000377 001124 


860 


006320 


111115 




861 


006322 


023715 


001124 


862 


006326 


001401 




863 


006330 


104005 




864 


006332 


005303 




865 


006334 


001405 




866 


006336 


013700 


001332 


867 


006342 


013701 


001356 


868 


006346 


000707 




869 








870 








(3) 








(3) 








(2) 


006350 


000004 




871 


006352 


004737 


013124 


872 


006356 


013700 


001342 


873 


006362 


013701 


001346 


874 


006366 


012703 


000002 


875 


006372 


004737 


013174 


876 


006376 


010137 


001122 


877 


006402 


012737 


000200 001124 


878 


006410 


112710 


000250 


879 


006414 


112710 


000137 


8S0 


006420 


111115 




881 


006422 


023715 


001124 


882 


006426 


001401 




883 


006430 


104003 




834 


006432 


112710 


000244 


885 


006436 


012737 


000377 001124 



MOV 

Move 

M0V8 

Move 
Move 

CMP 
BEG 
ERROR 
1$: M0V6 
CLR 

movb 

CMP 
BFQ 
ERROR 

2$: MOVB 
MOVB 
CMP 
BEQ 
ERROR 

3$: MOVB 
MOVB 
CMP 
BEQ 
ERROR 

4$: CLR8 
MOVB 
MOV 
MOVB 
CMP 
BEC 
ER'<OR 

5$: PIC 
IEQ 
f OV 
FOV 
f.R 

************ 
*TEST 25 

;*********** 

TST25: SCOPE 
JSR 
MOV 
MOV 
MOV 
JSR 

111$: MOV 
MOV 
MOVB 
MOVB 
MOVB 
CMP 
BEQ 

1$: MUVB 
MOV 



#252.$GDDAT 

#MIMA,(RO) 

#PIMR,(RO) 

$GDDAT,(R1) 

(R1MR5) 

$GDDAT,(R5> 

1$ 

5 

/MACR,<RO> 

SGDDAT 

(R1MR5) 

SGDDAT, <R5) 

2$ 

4 

#MISR,(RO) 

(R1),(R5> 

$GDDAT,(R5) 

3$ 

6 

#MIRR,(RO) 

(R1),(R5> 

SGDDAT, <R5) 

4$ 

3 

(RO) 

#MIMR,(RO> 

HZ77, SGDDAT 

(R1),(R5> 

SGDDAT, (R5) 

R3 

TST25 

DRCSCRO 

DRCSD,R1 

11W 

*************** 
TEST GROUPS 

*************** 

PCCLRCSR 

DRCSA,RO 

DRCSB,R1 

#2,R3 

PCCIRIRR 

R1,SbDADR 

#200.$GDDAT 

*MJRR,<RO) 

#137, <R0) 

(fil), (R5) 

SGDDAT, (R5) 

1$ 

3 

#MIMR-(RO) 

#377, SGDDAT 



STORE EXPECTED 
LOAD MODE BITS FOR IMR 
PRESELECT IMR FOR WRITING 
WRITE INTO DATA PORT 
STORE DATA FOR COMPARE 
CHECK IMR RESULTS 

IMR ERROR 

CHANGE TO ACR REC'STER 

STORE EXPECTED 

READ ACR 

SHOULD STILL BE CLEARED 

ACR REG ERROR 

LOAD MODE BITS FOR ISR 

READ ISR 

ISR SHOULD BE CLEARED 

ISR REG ERROR 

LOAD MODE BITS FOR IRR 

READ IRR 

IRR SHOULD BE CLEARED 

IRR REG ERROR 

CHIP RESET GROUP 1 

LOAD MODE BITS FOR IMR 

STORE EXPECTED 

READ IMR 

IMR SHOULD BE ALL ONES 

DO NEXT GROUP 

IMR RtG ERROR 

DO GROUPS 1 AND GROUP 2 

;»P TF BOTH GROU D S TESTED 

SET UP 10 TEST GROUP 2 

GROUP 2 DATA PORT 

DO GROUP 2 IMR UNIQUENESS 



************************************* 

1 AND 2 IRR UNIQUENESS 

************************************* 



CLEAR ALL CSRS 

CSRA ADDRESS 

CSRB ADDRESS 

COUNTER FOR TESTING TWO GROUPS 

CLEAR IRR REGS WITH CHIP RESET 

STORE ADDRESS 

STORE EXPECTED 

LOAD MODE BITS FOR IRR 

SET SINGLE IRR 8IT7 

STORE DATA FOR COMPARE 

CHECK IRR RESULTS 

IRR ERROR 

CHANGE TO IMR REGISTER 

STCHE EXPECTED 



CVDRCB 


DRV11J 


DIAG TST 


PRT1 


CVDRCB. 


P11 10-AUG-81 


10:51 


886 


006444 


111115 




887 


006446 


023715 


001124 


888 


006452 


001401 




889 


006454 


104005 




890 


006456 


112710 


000240 


891 


006462 


005037 


001124 


892 


006466 


111115 




893 


006470 


023715 


001124 


894 


006474 


001401 




895 


006476 


1 04006 




896 


006500 


112710 


000254 


897 


006504 


111115 




898 


006506 


023715 


001124 


899 


006512 


001401 




900 


006514 


104004 




901 


006516 


105010 




902 


006520 


112710 


000250 


903 


006524 


111115 




904 


006526 


023715 


001124 


905 


006532 


001401 




906 


006534 


104003 




907 


006536 


005303 




908 


006540 


001405 




909 


006542 


013700 


001352 


910 


006546 


013701 


001356 


911 


006552 


000711 




912 








913 








914 








(3) 








(3) 








(2) 


006554 


000004 




915 


006556 


004737 


013124 


916 


006562 


012702 


000002 


917 


006566 


012737 


006614 


918 


006574 


013700 


0013^ 


919 


006600 


013701 


001346 


920 


006604 


012703 


013232 


921 


006610 


010137 


001122 


922 


006614 


112710 


000254 


923 


006620 


112710 


000300 


924 


006624 


111337 


001124 


925 


006630 


111311 




926 


006632 


111115 




927 


006634 


023715 


001124 


928 


006640 


001401 




929 


006642 


104004 




930 


0066*4 


005723 




931 


006646 


020327 


013532 


932 


006652 


001360 




933 


006654 


005302 




934 


006656 


001405 




935 


006660 


013700 


001352 


936 


006664 


013701 


001356 


937 


006670 


000745 




938 









MACY11 30^(1063) 10-AUG-81 
T25 TEST GROUPS 



J 3 

10:58 PAGE 2-8 
1 AND 2 IRR UNIQUENESS 



$£Q 0035 



2$: 



3$; 



4$: 



5$: 



MOVB 

CMP 

BEO 

ERROR 

MOVB 

CLR 

MOVB 

CMP 

BEG 

ERROR 

M0V8 

MOVB 

CMP 

BEQ 

ERROR 

CLRB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

DEC 

BEO 

MOV 

MOV 

BR 



(R1),(R5) 

$GDDAT,(R5) 

2$ 

5 

#MISR,(RO) 

SGDDAT 

<R1),(R5> 

$GDDAT,(R5) 

3$ 

6 

*MACR,(RO) 

(R1),(R5) 

$GDDAT,<R5) 

4$ 

4 

(RO) 

*MIRR,(R0> 

(R1),(R5) 

$GDDAT-(R5) 

5$ 

3 

R3 

TST26 

DRCSCRO 

DRCSD,R1 

111$ 



************************** 

TEST WPS 

************** 



001110 



;*TEST 26 

;; ************ 

TST26: SCOPE 
JSR 
MOV 
MOV 
MOV 
MOV 

111$; MOV 
MOV 

1$: MOVB 

MOVB 
MOVB 
MOVB 
MOVB 
CMP 
BEQ 
ERROR 



2$: 



TST 
CMP 
BNE 
DEC 
BEO 
MOV 
MOV 
BR 



PC.CLRCSR 

#2,R2 

#1$,$LPERR 

DRCSA,RO 

DRCSB,R1 

*BEGPAT,R3 

R1,$8DADR 

#MACR,<RO) 

#PACR,(RO> 

<R3),$GDDAT 

(R3),(R1) 

<R1),(R5> 

$GDDAT,CR5) 

2$ 

4 

(R3) + 

R3,*ENDDAT 

1$ 

R2 

JSJ27 

DRCSCRO 

DRCSD,R1 

111$ 



READ IMR 

SHOULD STILL BE ALL 1'S 

IMR REG ERROR 

LOAD MODE BITS FOR ISR 

STORE EXPECTED 

READ ISR 

ISR SHOULD BE CLEARED 

ISR REG ERROR 

LOAD MODE BITS FOR ACR 

READ ACR 

ACR SHOULD BE CLEARED 

ACR REG ERROR 

CHIP RESET GROUP 1 

LOAD MODE BITS FOR IRR 

READ IRR 

IRR SHOULD BE CLEARED 

IRR REG ERROR 

TEST GROUPS 1 AND 2 

;BR IF 80TH GROUPS TESTED 

GROUP 2 CONTROL PORT 

GROUP 2 DATA POPT 

TEST GROUP 2 ACR UNIQUENESS 



************************************* 

1,2 ACR WITH PATTERNS 

***********»< ************************* 



CLEAR ALL CSRS 

TEST VJO GROUPS 

SET UP LOOP RETURN 

STORE CSRA ADDRESS 

STORE CSRB ADDRESS 

SET UP PATTERN TABLE 

STORE ADDRESS 

LOAD MODE BITS FOR ACR 

PRESELECT ACR FOR WRITING 

STORE EXPECTED 

WRITE INTO ACR 

READ OUT OF ACR 



ACR REGISTER ERROR 
INC FOR NEXT PATTERN 
CHECK FOR 1ABLE END 
W/R NEXT PATTERN 
FINISHED BOTH GROUPS? 
;BR IF EQUAL 



;D0 NEXT GROUP 



CVDRC9 DRV11J DIAG TST 
CVDRCB.P11 10-AUG-81 



939 
(3) 
(3) 

(2) 006672 

940 006674 

941 006700 

942 006704 

943 006712 

944 006716 

945 006722 

946 006726 

947 006732 

948 006736 

949 006742 

950 006746 

951 006750 

952 006752 

953 006756 

954 006760 

955 006762 

956 006764 

957 006770 

958 0067?2 

959 C06774 

960 006776 

961 007002 

962 007006 
963 

964 
(3) 
(?) 

(2) 007010 

965 007012 

966 007016 

967 007022 

968 00/026 

969 007032 

970 007036 

971 007042 

972 007046 
073 007052 

974 007054 

975 007060 

976 007062 

977 007064 

978 007066 

979 007070 

980 007074 

981 007100 
?«? 

983 
(3) 
(3) 

(2) 007102 

984 007104 

985 007110 



000004 
00473/ 
012702 
012737 
013700 
013701 
012703 
010137 
112710 
112710 
111337 
111311 
111115 
023715 
00K01 
10*005 
005723 
020327 
001360 
005302 
001405 
013700 
013701 
000745 



000004 
004737 
012704 
013700 
013/9 i 
010137 
005037 
112710 
112710 
111115 
023715 
001401 
104005 
005304 
0C 1405 
013700 
013701 
000754 



000004 
004737 
012704 



PRT1 
10:51 



013124 
000002 
006732 
001342 
001346 
013232 
001122 
000244 
000260 
001124 



001124 



013532 



001352 
001356 



013124 
000002 
001342 
001346 
001122 
001124 
000244 
OOC040 

001124 



001352 

001356 



013124 
000002 



MACY11 30G<1063) 10-AUG-81 
T27 TEST GROUPS 



K 3 

10:58 PAGE 
1,2 IMR WITH 



2-9 

PATTERNS 



$£Q 0036 



; ;*********** 

;*TEST 27 



******* ********************************************* 

TEST GROUPS 1,2 IKR WITH PATTERNS 

********************************** *;V ***************** 



TST27: 



001110 



111$: 
1$: 



2$: 



;*TEST 

;;**** 

TST30: 



111$: 



1$: 



SCOPE 

JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

Move 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

TST 

CMP 

BNE 

DEC 

BEG 

MOV 

MOV 

BR 

********* 

30 

********* 

SCOPE 

JSR 

MOV 

MOV 

MOV 

MOV 

CLrt 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

DEC 

BEQ 

MOV 

MOV 

BR 



PCCLRCSR 

#2 f R2 

m,$LPERR 

DRCSA,RO 

DRCSB,R1 

#BEGPAT,R3 

R1,$BDADR 

*MIMR,(RO) 

*PIMR,(RO) 

<R3), $GDDAT 

<R3>,(R1) 

<R1),(R5) 

$GDDAT,(R5) 

2$ 

5 

(R3) + 

R3,*ENDDAT 

1$ 

R2 

TST30 

DRCSCRO 

DRCSD,R1 

111$ 



CLEAR ALL CSRS 

TEST TWO GROUPS 

SET UP LOOP RETURN 

STORE CSRA ADDRESS 

STORE CSRB ADDRESS 

SET UP PATTERN TABLE 

STORE ADDRESS 

LOAD MODE BITS FOR IMR 

PRESELECT IMR FOR WRITING 

STORE EXPECTED 

WRITE INTO im 

READ OUT OF IMR 



IMR REGISTER ERROR 
INC FOR NEXT PATTERN 
CHFCK FOR TABLE END 
W/R NEXT PATTERN 
FINISHED BOTH GROUPS? 
;BR IF EQUAL 



;D0 NEXT GROUP 



********************************** **************** 

TEST GROUP 1,2 CLEAR MR INSTR. 
***^t*************************t ******************** 



PCCLRCSR 

*?,R4 

DRCSA,RO 

DRCSB,R1 

R1,$8DADR 

$GDDAT 

*M.MR,(RO) 

*CIMR,(RO) 

<R1),<R5> 

$GDDAT,(R5) 

1$ 

5 

R4 

TST31 

DRCSCRO 

DRCSD,R1 

111$ 



CLEAR ALL CSRS 

COUNTER FOR TWO GROUPS 

CSRA ADDRESS 

CSRB ADDRESS 

STORE ADDRESS 

EXPECTED DATA 

LOAD MODE BITS TO READ IMR 

CLEAR IMR COMMAND 

READ DATA PORT 



; ERROR ,IMR SHOULD BE CLEARED 
.•FINISHED BOTH GROUPS? 
;;BR IF BOTH GROUPS TESTED 
; SETUP FOR GROUP 2 

;D0 IMR TEST WITH GROUP 2 



;■*************************************************************** 

;*TEST 31 TEST GROUP 1,2 SET IMR INSTR. 

;;********************************************•******************* 

TSTZ^: SCOPE 

JSR PCCLRCSR ;CLEAR ALL CSRS 

MUV 02, R4 ; COUNTER FOR TWO GROUPS 



CVDRCB 0RV11J D1AG TST 
CVDRCB. P11 10-AUG-81 



986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1D00 

1001 

1002 

1003 

(3) 

(3) 

(2) 

1004 

1C05 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

••025 

1026 

1027 

1028 

^029 

1030 

1031 

1032 

(3) 

(3) 

(2) 

1033 

1034 

1035 



007114 
007120 
G07124 
007130 
007136 
007142 
007146 
007152 
007154 
007160 
007162 
007164 
007166 
007170 
007174 
0O720C 



007202 
007204 
007210 
007214 
007222 
007226 
007232 
007236 
007242 
007246 
007252 
007256 
007262 
007264 
007266 
007272 
007274 
007276 
007300 
007304 
007306 
007310 
00731? 
007314 
007316 
007322 
007326 



013700 
013701 
010137 
012737 
112710 
112710 
112710 
111115 
023715 
001401 
104005 
005304 
001405 
013700 
01370" 
000751 



000004 

004737 

012704 

012737 

013700 

013701 

010137 

012703 

112710 

012702 

111337 

112710 

110210 

111115 

023715 

001401 

104005 

005723 

020327 

001402 

005202 

000760 

005304 

001405 

013700 

013701 

000741 



007330 000004 

007332 004737 

007336 012704 

0073^2 012737 



PRT1 
10:51 

001342 
001346 
001122 
000377 
000244 
000040 
000060 

001124 



001352 
001356 



MACY11 306(1063) 10-AUG-81 10:58 
T31 TEST GROUP 1.2 SET 



L 3 
PAGE 2-10 
IMR JNSTR. 



SEQ 0037 



013124 
000002 
007252 
001342 
001346 
001122 
013376 
00024** 
000050 
001124 
000060 



001124 



013416 



001352 
001356 



001124 



111$: 



1$: 



001110 



MOV 

MOV 

MOV 

MOV 

MOVB 

M0V8 

MOVS 

MOVB 

CMP 

BEQ 

ERROR 

DEC 

BEO 

MCV 

MOV 

BR 



;;************ 

;*TEST 32 

;;************ 

TST32: SCOPE 
JSR 
MOV 
MOV 
MOV 
MOV 

111$: MOV 
MOV 
MOVB 
MOV 

1$: MOVB 
MOVB 
MOVB 
MC'fe 
CMP 
BEQ 
ERROR 

2$: TST 
CMP 
BEO 
INC 
BR 

3$: DEC 
BEQ 
MOV 
MOV 
BR 



DRCSA,RQ 

DRCSB.R1 

R1 £ SBDADR 

*377,$G;>DAf 

#MIMR,(RO) 

*CJKR,(RO) 

#SIMR,(RO) 

<R1),(R5) 

$GDDAT,(R5) 

1$ 

5 

R4 

TST32 

DRCSCRO 

DKCSD.R1 

111$ 



C5RA ADDRESS 

CSRB ADDRESS 

STORE ADDRESS 

EXPECJED DATA 

LOAD MOD* BITS TO READ IMR 

CLEAR IMR 

SET IMR COMMAND 

READ DATA PO^T 



;ERROR ,IMR SHOULD BE SET 
.•FINISHED BOTH GROUPS? 
;;BR IF BOTH GROUPS TESTED 
; SETUP FOR GRCJP 2 

;D0 IMR TEST WITH .. 



**************************************•'; *********** V 

TEST GROUP 1,2 CLEAR SINGLE IMR BIT INGTR. 
******** ******************** *********************** 



PCCLRCSR 

*2,R4 

*1$.$LPERR 

DRCSA,RO 

DRCSB,R1 

R1.SBDADR 

*BGCHP4,R3 

*MIMR,(RO) 

*CSIMR,R2 

<R3), $GDDAT 

#SIMR.(RO) 

R2,(R0) 

(R1),(R5) 

$GDDAT,(R5> 

2$ 

5 

(R3) + 

R3,*EDCHP4 

3$ 

R2 

1$ 

R4 

TST33 

DRCSC,PO 

PRCSD,R1 

111$ 



CLEAR ALL CSRS 

GROUP COUNTER 

SCOPE RETURN ADDRESS 

CSRA ADDRESS 

CSRB ADDRESS 

STORE ADDRESS 

GOOD DATA PATTERN TABLE 

LOAD MODE BITS FOR IMR 

CLEAR SINGLE IMR BIT VALUE 

STORE EXPECTED 

SET ALL IMR BITS 

CLEAR SINGLE IMR BIT 

READ DATA PORT 



IMR REG ERROR 

INC EXPECTtD DATA TABLE 

CHECK FOR END 

SET UP TO CLEAR NEXT IMR BIT 

CLEAR NEXT MR BIT 

DO GROUPS 1 AND 2 

;3R IF BOTH GROUPS TESTED 

CSRC ADDRESS 

CSRD ADDRESS 

DO GROUP 2 



013124 

000002 

007400 001110 



***************************************************************** 

;'*TEST 33 TEST GROUP 1,2 SET SINGLE IMR BIT INSTR. 

• ************************* *************************************** 

TST33: SCOPE 



JSR PCCLRCSR 

MOV 02.R4 

MOV *1$,$LPERR 



CLEAR ALL CSRS 

GROUP COUNTER 

SCOPE RETURN ADDRESS 



r~ 



CVDRCB DRV11J D1AG TST 
CVDRCB. P11 10-AUG-81 



1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
(3) 
(3) 
(2) 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
10/6 
1077 
1078 
1079 
1030 
1081 
(3) 
(3) 
(2) 
1082 
1083 
1084 
1085 



007350 
007354 
007360 
007364 
007370 
007374 
007400 
007404 
007410 
007412 
007414 
007420 
007422 
007424 
007426 
007432 
007434 
007436 
007440 
007442 
007444 
007450 
007454 



007456 
007460 
007464 
007470 
007474 
007500 
007504 
007510 
007516 
007522 
007526 
007530 
007534 
007536 
007540 
007542 
007544 
007550 
007554 



007556 
007560 
007564 
007570 
007574 



013700 
013701 
010137 
012703 
112710 
012702 
111337 
112710 
110210 
111115 
023715 
001401 
104005 
005723 
020327 
001402 
005202 
000760 
005304 
001405 
013700 
013701 
000741 



000004 
004737 
012704 
013700 
013701 
004737 
010137 
012737 
112710 
112710 
111115 
023715 
001401 
104003 
005304 
001405 
013700 
013701 
000753 



000004 
004737 
012704 
013700 
013701 



PRT1 
10:51 

001342 
001346 
001122 
013334 
000244 
000070 
001124 
000040 



001124 



013354 



M 3 
MACY11 30GC1063) 10-AUG-81 10:58 PAGE 2-11 

T33 TLST GROUP 1,2 SET SINGLt IMR BIT INSTR. 



SEQ 0038 



001352 
001356 



013124 
000002 
001342 
001346 
013174 
001122 
000377 
000250 
000120 

001124 



001352 
001356 



MOV DflCSA,RO 

MOV DRCSB,R1 

111$: MOV R1,$BDADR 

MOV 0BGCHP3,R3 

M0V8 #MIMR,(RO) 

MOV #SSJMR,R2 

1$: MOVB (R3),$GDDAT 

MOVB #CIMR/RO) 

MOVB R2.(R0) 

MOVB (R1),(R5) 

CMP $GDDAT,(R5) 

BEQ 2$ 

ERROR 5 

2$: TST (R3) + 

CMP R3.0EDCHP3 

BEQ 3$ 

INC R2 

BR 1$ 

3$: DEC R4 

BEQ TST34 

MOV DRCSCRO 

MOV DRCSD,R1 

BR 111$ 



CSRA ADDRESS 

CSR8 ADDRESS 

STORE ADDRESS 

COOD DATA PATTERN TABLE 

LOA:- 'JOE BITS FOR IMR 

SET SINGLE IMR BIT VALUE 

STORE EXPECTED 

» ,,r -"» ALL IMR BITS 

SF> ot.MGLE IMR BIT 

f.eav; data port 



J MR REG ERROR 

INC EXPECTED DATA TABLE 

CHECK FOR END 

SET UP TO SET NEXT IMR BIT 

SET NEXT IMR BIT 

DO GROUPS 1 AND 2 

;BR IF BOTH GROUPS TESTED 

CSRC ADDRESS 

CSRD ADDRESS 

DO GROUP 2 



************ * ************************ *************************** 

TEST GROUP 1,2 SET IRR INSTR. 
****************** *** ******** ************** ******* 



;*TEST 34 

;;************* 

TST34: SCOPE 



001124 



JSR PCCLRCSR 

MOV #2,R4 

MOV DRCSA,RO 

MOV DRCSB,R1 

JSR PCCLRIRR 

111$: MOV R1,$BDADR 

MOV HZ71. SGDDAT 

MOVB *MIRR,(RO) 

MOVB *SIRR,(RC 

M0V3 (R1),(R5) 

CMP $GDDAT,(R5) 

BEQ 1$ 

ERROR 3 

1$: DEC R4 

BEQ TST35 

MOV DRCSCRO 

MOV DRCSD,R1 

BR 111$ 



CLEAR ALL CSRS 

COUNTER FOR TWO GROUPS 

CSRA ADDRESS 

CSRB ADDRESS 

CLEAR IRR REGS WITH CHIP RESET 

STORE ADDRESS 

EXPECTED DATA 

LOAD MODE BITS TO READ IRR 

SET IRR COMMAND 

READ DATA PORT 



;ERROR ,IRR SHOULD BE SET 
.-FINISHED BOTH GROUPS? 
;;BR IF BOTH GROUPS TESTED 
; SETUP FOR GROUP 2 

;D0 IRR TEST WITH GROUP 2 



013124 
000002 
001342 
001346 



• J*************************************************************** 

;*TEST 35 TEST GROUP 1,2 CLEAR IRR INSTR. 

;;*************************************************************** 

TST35: SCOPE 



JSR 


PCCLRCSR 


; CLEAR ALL CSRS 


MOV 


*2,R4 


; COUNTER FOR TWO GROUPS 


MOV 


DRCSA,RO 


;CSRA ADDRESS 


MOV 


DRCSB,R1 


;CSRB ADDRESS 



CVDRC8 0RV11J DIAG TST PRT1 
CVDRCB.P11 10-AU6-81 10:51 



MACY11 306(1063) 10- 
T35 TEST 



1086 
1087 
1088 
1089 
1090 
1091 
1092 
1095 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
(3) 
(3) 
(2) 
1103 
1(04 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
111S 
1116 
1117 
11 1 8 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
(3) 
(3) 
<2) 
1132 
1133 
1134 
1135 



007600 
007604 
007610 
007614 
007620 
007624 
007630 
007632 
007636 
007640 
007642 
007644 
007646 
007652 
007656 



007660 
007662 
007666 
007672 
007700 
007704 
007710 
00/714 
007/20 
007724 
007730 
007734 
007740 
007744 
007746 
007750 
007754 
007756 
007760 
007762 
007766 
007770 
007772 
007774 
007776 
010000 
010004 
010010 



004737 
010137 
005037 
112710 
112710 
112710 
111115 
023715 
001401 
104003 
005304 
001405 
013700 
013701 
000752 



000004 

004737 

012704 

012737 

013700 

013701 

004737 

010137 

012703 

112710 

012702 

111337 

112710 

110210 

111115 

023715 

001401 

104003 

005723 

020327 

001402 

005202 

000760 

005304 

001405 

013700 

013701 

000741 



010012 OC0OQ4 

010014 004737 

010020 012704 

010024 012737 

010032 013700 



013174 
001122 
001124 
000250 
000120 
000100 

001124 



001352 
001356 



013124 
000002 
007734 
001342 
001346 
013174 
001122 
013376 
000250 
000110 
00112* 
000120 



001124 



013416 



001352 
001356 



013124 
000002 
010066 
001342 



N 3 
•AUG-81 10: 5G PAGE 
GROUP 1,2 CLEAR IRR 

JSR PCCLRIRR 

111$: MOV R1,$BDADR 

CLR SGDDAT 

MOVB *MIRR,(RO) 

M0V8 #SIRR,(RO) 

MOVB #CIRR,(RO) 

MOVB (R1),(R5) 

CMP SGDDAT, (R5) 

BEQ 1$ 

ERROR 3 

1$: DEC R4 

BEQ TST36 

MOV DRCSCRO 

MOV DRC. ,R1 

BR 111* 



2-12 
INSTR. 

;CLEAR IRR REGS WITH CHIP RESET 

; STORE ADDRESS 

.'EXPECTED DATA 

;LOAD MODE BITS TO RfcAD IRR 

;SET IRR BITS 

; CLEAR IRR COMMAND 

;READ DATA PORT 



;FRROR ,IRR SHOULD BE CLEARED 
-.FINISHED BOTH GROUPS? 
;;BR IF BOTH GROUPS TESTED 
; SETUP FOR GROUP 2 

;D0 IRR TEST WITH GROUP 2 



SEQ 0039 



•; **** *********** ********** 

TEST GROUP 

r************** 



001110 



;*TEST 36 

;;*********** 

TST36: SCOPE 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 

111$: MOV 
MOV 
MOVB 
MOV 

1$: MOVB 
MOVB 
MOVB 
MOVB 
CMP 
BEQ 
ER r JR 

2$: TST 
CMP 
BEQ 
INC 
BR 

3$: ."EC 

BEQ 
MOV 
MOV 
BR 



************************************** 

1,2 CLEAR SINGLE IRR BIT INSTR. 
************************************** 



PCCLRCSR 

#2,R4 

#1i.$LPER.l 

DRCSA.RO 

DRCS8.R1 

PCCLRIRR 

R1.SBDADR 

#8GCHP4,R3 

#MIRR,(RG) 

#CSIRR,R2 

(R3), SGDDAT 

#SJRR £ (RO) 

R2-(R0) 

(Rb.(R5) 

SGDDAT, <R5) 

2$ 

3 

(R3) + 

R3,*E*CHP4 

3S 

R2 

1S 

R4 

TST37 

DRCSCRO 

DRCSD,R1 

111$ 



CIE+R ALL CSRS 

GROUP 'OUNTER 

SCOPE RETURN ADDRESS 

CSRA ADDRtSS 

CSRS ADDRESS 

CLEAR IRR PEGS WITH CHIP RESET 

JTORE ADDRESS 

GOOD DATA PATTERN TABLE 

LOAD MODE BITS FOR IRR 

CLEAR SINGLE IflR BIT VALUE 

STORE EXPECTED 

SET ALL IRR BITS 

CLEAR SINGLE IRR BIT 

READ DATA PORT 



IRR REG ERROR 

INC EXPECTED DATA TABLE 

CHECK FOR END 

SET UP TO CLEAR NEXT IRR BIT 

CLEAR NEXT IRR BIT 

DO GROUPS 1 AND 2 

;Bft IF BOTH GROUPS TESTP 

CSRC ADDRESS 

CSRD ADDRESS 

DO GROUP 2 



;;*************************************************************** 

;*TEST 37 TEST GROUP 1,2 SET SINGLE IRR BIT INSTR. 

••••*»*** ******************************************************** 

JSJ37; SCOPE 



001110 



JSP PCCLRCSR 

MOV *2. R4 

MOV #1$,$LPERR 

MOV DRCSA,R0 



CLEAR ALL CSRS 
GROUP COUNTER 
SCOPE RETURN ADDRESS 
CSRA ADDRESS 



CVORCB DRV1U OIAG TST 
CVDRCB.P11 10-AUG-81 



1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
(3) 
(3) 
(2) 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
117V 

r.do 

1181 
1182 
1183 
1184 
1185 
1186 
1187 
(3) 



010036 
010042 
010046 
010052 
010056 
010062 
010066 
010072 
010076 
010100 
010102 
010106 
010110 
010112 
010114 
010120 
010122 
C10124 
010126 
010130 
010132 
010136 
010142 



010144 
010146 
010152 
010156 
010162 
010166 
010172 
010176 
010202 
010206 
010212 
010216 
010222 
010224 
010230 
C 10232 
010234 
010240 
010242 
010246 
010250 
010252 
010254 
010256 
010262 
010266 



013701 
0C4737 
"10137 
012703 
112710 
012702 
111337 
112710 
110210 
111115 
023715 
001401 
104003 
005723 
020327 
001402 
005202 
000760 
005304 
001405 
013700 
013701 
000741 



000004 

004737 

012704 

013700 

013701 

004737 

010137 

005037 

112710 

112710 

112710 

112710 

111115 

023715 

001401 

'04003 

112710 

111115 

023715 

001401 

104005 

005304 

001405 

013700 

013701 

000741 



PRT1 
10:51 

001346 
013174 
001122 
013334 
000250 
000130 
001124 
000100 



001124 



013354 



B 4 
MACY11 306(1063) 10-AUG-81 10:58 PAGE 2-13 

T37 TEST GROUP 1,2 SET SINGLE IRR BIT INSTR. 



SEQ 0040 



001352 
001356 



013124 
000002 
001342 
001346 
013174 
001122 
001124 
000250 
000120 
000060 
000020 

001124 



000244 
001124 



001352 
001356 



MOV 

JSR 
111$: MOV 

MOV 

MOVB 

MOV 
1$: MOVB 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 
2$: TST 

CMP 

BEQ 

INC 

BR 
3$: D£C 

BEQ 

MOV 

MOV 

BR 

;;************* 

;*TEST 40 

;;************* 

TST40: SCOPE 

JSR 

MOV 

MOV 

MOV 

JSR 
111$: MOV 

CLR 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 
1$: M0V8 

MOVB 

CMP 

BEQ 

ERROR 
2$: DEC 

BEQ 

MOV 

MOV 

BR 



DRCSB,R1 

PCCLRIRR 

R1,$BDADR 

#BGCHP3-R3 

rfMIRR.HO) 

*SSIRR,R2 

(R3),$GDDAT 

*CIRR.(RO) 

R2,<r6) 

(R1),<R5) 

$GDDAT,(R5) 

2$ 

3 

(R3) + 

R3,#EDCHP3 

3$ 

R2 

1$ 

R4 

TST40 

DRCSCRO 

DRCSD,R1 

111$ 



CSRB ADDRESS 

CLEAR IRR REGS WITH CHIP RESET 

STORE ADDRESS 

GOOD DATA PATTERN TABLE 

LOAD MODE BITS FUR IRR 

SET SINGLE IRR BIT VALUE 

STORE EXPECTED 

CLEAR ALL IRR BITS 

SET SINGLE IRR BIT 

READ DATA PORT 



;IRR REG ERROR 

;INC EXPECTED DATA TABLE 

; CHECK FOR END 

;SET UP TO SET NEXT IRR BIT 

;SET NEXT IRR BIT 

;D0 GROUPS 1 AND 2 

;;BR IF BOTH GROUPS TESTED 

;CSRC ADDRESS 

;CSRD ADDRESS 

;D0 GROUP 2 



**** ************ **************************** ****** 

TEST GROUP 1,2 CLEAR IRR+IMR INSTR, 

********* ********************** *********** ******** 



PCCLRCSR 

#2,R4 

DRCSA,RO 

DRCSB,R1 

PCCLRIRR 

R1,$8DADR 

SGDDAT 

#MIRR,(RO) 

#SIRR,(RO> 

*SIMR,(RO> 

*CIRMR-(RO) 

(RD.(fi5) 

$0DDAT,(R5) 

1$ 

3 

#MIMR.CRO) 

(R1),(R5) 

$GDDAT,<R5) 

R4 

TST41 

DRCSCRO 

DRCSD.R1 

111$ 



CLEAR ALL CSRS 

COUNTER FOR TWO GROUPS 

CSRA ADDRESS 

CSRB ADDRESS 

CLEAR IRR REGS WITH CHIP RESET 

STORE ADDRESS 

EXPECTED DATA 

LOAD MODE BITS TO READ IRR 

SET IRR BITS 

SET IMR BITS 

CLEAR IRR+IMR COMMAND 

READ DATA PORT FOR IRR 



;ERROR -IRR SHOULD 
;LOAD M6DE BITS TO 
;READ IMR REG 



BE CLEARED 
READ IMR 



; IRR+IMR COMMAND DID NOT CLEAR IMR 
.-FINISHED BOTH GROUPS? 
;-8R If BOTH GROUPS TESTED 
; SETUP FOR GROUP 2 

;D0 IRR+IMR TEST WITH GROUP 2 



**************************************************************** 



;*TEST 41 



TEST GROUP 1,2 CLEAR SINGLE IRR+IMR BIT INSTR. 



CVDRCB DRV11J OIAG TST 
CVDRCB.P11 10-AUG-81 



(3) 
(2) 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
(3) 
(3) 
(2) 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 



010270 
010272 
010276 
010302 
010310 
010314 
010320 
010324 
010330 
010334 
010340 
010344 
010350 
010354 
010360 
010362 
010364 
010370 
010372 
010374 
010400 
010402 
010406 
010410 
010412 
010414 
010420 
010422 
010424 
010426 
010430 
010432 
010436 
010442 



010444 
010446 



010452 
010456 
010462 
010466 
010472 
010476 
010502 
010506 
010512 
010516 
010520 



000004 
004737 
012704 
012737 
013700 
013701 
004737 
010137 
012703 
012702 
111337 
112710 
112710 
112710 
110210 
111115 
023715 
001401 
104003 
112710 
111115 
023715 
001401 
104005 
005723 
020327 
001402 
005202 
000745 
005304 
001405 
013700 
013701 
000730 



000004 
004737 



012704 
004737 
010337 
112710 
112711 
112710 
112710 
112712 
005037 
111315 
023715 



PRT1 
10:51 



013124 
000002 
010340 
001342 
001346 
013174 
001122 
013376 
000030 
001124 
000250 
000120 
000060 



001124 

000244 
001124 

013416 



C 4 

MACY11 30G(1063) 10-AUG-81 10:58 PAGE 2-14 

T41 TEST GROUP 1,2 CLEAR SINGLE IRR+IMR BIT INSTR. 



SEQ 0041 



001352 
001356 



013124 



000002 
013174 
001122 
000300 
0QQ377 
000120 
000040 
000254 
001124 

001124 



001110 



;;*********+*******************************> V******************** 


TST41? 


SCOPE 








JSR 


PC.CLRCSR 


CLEAR ALL CSRS 




MOV 


*2,R4 
i*1$,$LPERR 


GROUP COUNTER 




MOV 


SCOPE RETURN ADDRESS 




MOV 


DRCSA,RO 


CSRA ADDRESS 




MOV 


DRCSB.R1 
PCCLRIRK 


CSRB ADDRESS 




JSR 


CLEAR IRR REGS WITH CHIP RESET 


111$: 


MOV 


R1,SBDADR 


STORE ADDRESS 




MOV 


#BGCHP4,R3 


GOOD DATA PATTERN TABLE 




MOV 


*CSJRMR.R2 


CLEAR SINGLE IRR+IMR BIT VALUE 


1$; 


MOVB 


(R3),$GDDAT 


STORE EXPECTED 




MOVB 


*MIRR,<RO) 


LOAD MODE BITS TO READ IRR 




MOVB 


*SIRR,<RO) 


SET ALL IRR BITS 




M0V8 


#SIMR,<RO) 
R2,(R0) 


SET ALL IMR BITS 




MOVB 


CLEAR SINGLE IRR+IMR BIT 




MOVB 


(R1).(R5) 


READ DATA PORT FOR IRR 




CMP 


$GDDAT,<R5) 






BEQ 


2$ 






ERROR 


3 


IRR REG ERROR 


2$: 


MOVB 


#MIMR,(RO) 


SET UP TO READ IMR 




MOVB 


(R1MR5) 


'READ IMR REGISTER 




CMP 


SGDDAT,(R5) 






BEQ 


3$ 






ERROR 


5 % 


•IMR REG ERROR 


3$: 


TST 


(R3) + 


'INC EXPECTED DATA TABLE 




CMP 


R3,*EDCHP4 


; CHECK FOR END 




BEQ 


4$ 






INC 


R2 


•SET UP TO CLEAR NEXT IRR+IMR BIT 




BR 


1$ 


;CLEAR NEXT IRR+IMR BIT 


4$; 


DEC 


R4 , 


;D0 GROUPS 1 AND 2 




BEQ 


TST42 


•;BR IF BOTH GROUPS TESTED 




MOV 


DRCSCRO 


•CSRC ADDRESS 




MOV 


DRCSD,R1 


j CSRD ADDRESS 




BR 


111$ 


;D0 GROUP 2 


;;************ ^•*******************************************/ ( ****A 


;*TEST 


42 


TEST GROUPS 1,2 I 


: 0R GROUP UNIQUENESS 


«•#**•************•**•******•****************#•***•****•*•**•**** 


TST42; 


SCOPE 








JSR 


PCCLRCSR 


; CLEAR ALL CSRS 
;CSRA - RO 
rCSRB = R1 
JCSRC = R2 
;CSRD = R3 




MOV 


*2,R4 


; COUNTER FOR TESTING TWO GROUPS 




JSR 


PCCLRIRR 


pCLEAR IRR REGS WITH CHIP RESET 


111$: 


MOV 


,?3,$BD*DR 


j STORE ADDRESS 




MOVB 


#PACR,<RO) 


^PRESELECT ACR FGR WRITING 




MOVB 


#377, <R1) 


; WRITE INTO DATA PORT FOR ACR 




MOVB 


#SJRR,(RO) 


:SET IRR TO ALL VS 




MOVB 


#CIMR,(RO) 


; CLEAR IMR 




MOVB 


#MACR,(R2) 
SGDDAT 


;LOAD MODE TO READ ACR 




CLR 


;EXPECTED 




MOVB 


(R3). (R5) 


; STORE DATA FOR COMPARE 




CMP 


SGDDAT, (R5) 


; CHECK ACR RESULTS 



CVDRCB 


0RV11J 


01AG TST 


PRT1 MACY11 


CVDRCB.P11 10-AUG-81 


10:51 


1239 


010524 


001401 




1240 


010526 


104004 




1241 


010530 


112712 


000244 


1242 


010534 


012737 


000377 001124 


1243 


010542 


111315 




1244 


010544 


023715 


001124 


1245 


010550 


001401 




1246 


010552 


104005 




1247 


010554 


112712 


000240 


1248 


010560 


005037 


001124 


1249 


010564 


111315 




1250 


010566 


023715 


001124 


1251 


010572 


001401 




1252 


010574 


104006 




1253 


010576 


112712 


000250 


1254 


010602 


111315 




1255 


010604 


023715 


001124 


1256 


010610 


001401 




1257 


Q10A12 


104003 




1258 


0106i4 


005304 




1259 


010616 


001415 




1260 


010620 


004737 


013124 


1261 


010624 


01370C 


001352 


1262 


010630 


01370' 


001356 


1263 


010634 


01370? 


001342 


1264 


010640 


01370 5 


001346 


1265 


010644 


00473" 


013174 


1266 


010650 


00070<> 




1267 








1268 








(3) 








(3) 








(2) 


010652 


000004 




1269 


010654 


004737 


013124 


1270 


010660 


013700 


001342 


1271 


010664 


013701 


001346 


1272 


010670 


012703 


000002 


1273 


010674 


012704 


000120 


1274 


010700 


005077 


170436 


1275 


010704 


005077 


170442 


1276 


010710 


012702 


013234 


1277 


010714 


1 12760 
112777 


000001 000001 


1278 


01 0722 


000204 170412 


1279 


010730 


112777 


000204 170414 


1280 


010736 


112710 


000020 


1281 


010742 


012737 


000070 001372 


1282 


010750 


012737 


000130 001376 


1283 


010756 


010037 


001122 


1284 


010762 


010437 


001124 


1285 


010766 


113710 


001376 


1286 


010772 


111015 




1287 


010774 


042715 


000007 


1288 


011000 


023715 


001124 


1289 


011004 


001401 




1290 


011006 


104007 




1291 


011010 


005037 


001124 



30GC1063) 19-AUG-81 
T42 TEST GROUPS 



10:58 PAGE 2-15 
1 .2 FOR GROUP UNIQUENESS 



SEQ 0042 



1$: 



2$: 



3$: 



4$: 



BEG 

ERROR 

M0V8 

MOV 

MOVB 

CMP 

BEQ 

ERROR 

MOVB 

CLR 

MOVB 

CMP 

BEQ 

ERROR 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

DEC 

BEQ 

JSR 

MOV 

MOV 

MOV 

MOV 

JSR 

BR 



1$ 

4 

#MIMR,(R2) 

0377, $GDDAT 

<R3),(R5> 

$GDDAT,(R5) 

2$ 

5 

#MISR,(R2) 

$GDDAT 

(R3),(R5) 

SGDDAT,(R5) 

3$ 

6 

#MIRR,(R2) 

<R3),(R5> 

$GDDAT,(R5) 

4$ 

3 

R4 

TST43 

PCCLRCSrt 

DRCSCRO 

DRCSD,R1 

DRCSA,R2 

DRCSB,R3 

PC,CLRIRR 

111$ 



; ;***** 

;*TEST 

;;***** 

TST43: 



111$: 



112$: 



1$: 



****** ******* ************* 

43 TEST STATUS BITS 

************************** 

SCOPE 

JSR PC. CLRCSR 

MOV DRCSA,RO 

MOV DRCSB,R1 

MOV #2,R3 

MOV #120, R4 

CLR 3DRCSA 

CLR 3PRCSC 

MOV *8GPAT1 ,K2 

MOVB *8IT0,1(R0) 

MOVB #204,aDRCSA 

MOVB #204 / aDRCSC 

MOVB #CIRMR,<RO> 

MOV MSS IMR,IMRLOC 

MOV #SSIRR,IRRLOC 

MOV RO,$BDADR 

MOV R4-SGDDAT 

MOVB IRRLOC.(RO) 

MOVB <R0)-(R5) 

BJC #7-(R5) 

CMP $g6daT,(R5> 

BEQ 1$ 

ERROR 7 

CLR $GDDAT 



ERROR,OTHER GROUP ACR SHOULD BE CLEARED 

CHANGE TO JMR REGISTER 

STORE EXPECTED 

READ IMR 

SHOULD BE ALL VS 

ERROR, OTHFR GROUP IMR SHOULD BE SET 

LOAD MODE BITS FOR ISR 

STORE EXPECTED 

READ ISR 

ISR SHOULD BE CLEARED 

ISR REG ERROR 

LOAD MODE BITS FOR IRR 

READ IRR 

IRR SHOULD BE CLEARED 

ERROR, OTHER GROUP IRR SHOULD BE CLEARED 

TEST GROUPS 1 AND 2 

;BR IF BOTH GROUPS TESTED 

CLEAR ALL CSRS 

GROUP 2 CONTROL PORT 

GROUP 2 DATA PORT 

GROUP 1 CONTROL PORT 

GROUP 1 DATA PORT 

CLEAR IRR REGS WITH CHIP RESET 

TEST GROUP 2 ACR UNIQUENESS 

******************************** 

GINT,S2,S1,S0,GP1,2 

******************************** 

CLEAR ALL CSRS 



DO TWO GROUPS 

EXPECTED STATUS BITS 

INIT CSRA 

INIT CSRC 

EXPECTED IRR PATTERN 

CSR TO OUTPUT MODE 

POLLED MODE FOR CSRA, GROUP 1 

POLLED MODE FOR CSRC, GROUP 2 

CLEAR IMR + IRR 

STORE CODE FOR SINGLE IMR 

STORE CODE FOR SINGLE IRR 

CSR CHIP COMMAND ADDRESS 

EXPECTED DATA 

SET SINGLE IRR BIT 

CH^CK STATUS 

; *** VDRCA1 ADDS THIS *** ;;GHA 



CHIP STATUS ERROR 



CVDRCB DRV1U DIAG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 



E 4 
MACY11 30G(1063) 10-AUG-81 10:58 PAGE 2-16 

T43 TEST STATUS BITS GINT,S2,S1,S0,GP1,2 



SEG 0043 



1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
(3) 
(3) 
(2) 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
134? 
1343 
1344 



011014 
011020 
011024 
011030 
011032 
011036 
011040 
011042 
011046 
011052 
011060 
011062 
011066 
011072 
011074 
011°76 
C1 11 02 
011106 
011112 
011114 
011120 
011122 
011124 
011126 
011132 
011134 
011140 

011144 
011146 
011152 
011154 
011156 
011162 
011166 



011172 
011174 



011200 
011206 
011212 
011220 



8 



11 
_11_ 

011231. 
011236 
011242 



010137 
111237 
112710 
111115 
023715 
001401 
104003 
010037 
113710 
012737 
111015 
042715 
023715 
001401 
104007 
010137 
011237 
112710 
111115 
023715 
001401 
104005 
005722 
020227 
001407 
005237 
005237 

000240 
000137 
005303 
001406 
013700 
013701 
000137 



000004 
004737 



012737 
012704 
112760 
112761 

105010 
105012 
112710 
112712 
011460 



001122 
001124 
000250 

001124 



001122 
001372 
000320 

000007 
001124 



001122 
001124 
000244 

001124 



013254 

001376 
001372 



010756 



001352 
001356 
010674 



013124 



011242 
013232 
000001 
000001 



000204 
000204 
000002 



001124 



MOV R1,$8DADR 

M0V8 (R2),$GDDAT 

MOVB #MIRR,(RO) 

MOVB (R1),(R5) 

CMP $GDDAT,(R5) 

BEQ 2* 

ERROR 3 

2$: MOV RO,SBDADR 

MOVB IMALOC(RO) 

MOV #320,$GDDAT 

MOVB (R0),(R5) 

BIC #7,(R5) 

CMP $GDDAT,<R5) 

BEQ 3$ 

ERROR 7 

3$: MOV R1,$BDADR 

MOV <R2),SGDDAT 

MOVB #MIMR,<RO) 

MOVB (R1) (R5) 

CMP $GDDAT,<R5> 

BEO 4$ 

ERROR 5 

4$: TST (R2) + 

CMP R2,*EDCHP1 

BEQ 5$ 

INC IRRLOC 

INC IMRLOC 

;;GPA INC R4 
NOP 

JMP 112S 

5$: DEC R3 

BEQ TST44 

MOV DRCSCRO 

MOV DRCSD,R1 

JMP 111$ 



CSR CHIP DATA ADDRESS 

REAP IRR 

CHECK IRR 

IRR ERROR 

SET IMR BIT 

CSR EXPECTED DATA 

CLEAR UNDEFINED BITS 

;CHIP STATUS ERROR 

; EXPECTED DATA 
;READ IMR elTS 
;SAVE IMR READ 



IMR ERROR 

NEXT EXPECTED FOR IMR + IRR 

CHECK FOR END 

NEXT IRR BIT 

NEXT IMR BIT 

INDEX EXPECTED STATUS 

; *** VDRCA1 DELETES INC R4 *** ;;GPA 

DO NEXT STATUS CHECK 

FINISHED BOTH GROUPS? 

;BR IF EQUAL 



;D0 NEXT GROUP 



**************************************************************** 

*TEST U TEST POLLED MODE;CSRS A,B=OUT C,D=IN, ACTIVE LOW 

;************************************ *************************** 

TST44: SCOPE 



001110 

000001 
000001 



1$: 



JSR PL,CLRCSR 



MOV *1$-SLPERR 

MOV #BEGPAT,R4 

MOVB *8IT0,KR0) 

MOVB IBITO.KRI) 

CLRB (RO) 

CLRB (R2> 

MOVB #204, <RQ) 

MOVB #204, <R2) 

MOV (R4),2(R0) 



CLEAR ALL CSRS 
RO = CSRA-GROUP 1 CONTROL 
R1 = CSRB-6R0UP 1 DATA 
R2 = CSRC-GROUP 2 CONTROL 
R3 = CSRD-GROUP 2 DATA 
SET FOR SCOPE RETURN 
STAR) OF PATTERN TABLE 
SET CSRA TO OUTPUT MODE 
SET CSRB TO OUTPUT MODE 

CHIP RESET GROUP 1 CSRA 

CHIP RESET GrtOUP 2 CSRC 

LOAD MODE BITS FOR POLLED MODE,GR 1 

LOAD MODE BITS FOR POLLED M0DE,GR2 

SET PATTERN DBRA FROM H TO L 



CVDRCB DRV11J DIA6 TST 
CVDRCB.P11 10-AUG-81 



1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

(3) 

(3) 

(2) 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 



011246 
011252 
011256 
011262 
011266 
011272 
011276 
011300 
011304 
011306 
011310 
011314 
011320 
011326 
011334 
011342 
011344 
011350 
011352 
011354 
0H360 
011366 
011370 
011374 
011376 
011400 
011404 
011412 
011414 
011420 
011422 
011424 
011430 
011436 
011440 
011444 
011446 
011450 
011452 
011456 



011460 
011462 



112710 

112712 

005060 

010137 

112710 

111437 

111115 

023715 

001401 

104003 

010337 

112712 

116437 

042737 

052737 

111315 

023715 

001401 

104003 

005762 

052737 

111315 

023715 

001401 

104003 

005061 

052737 

111315 

023715 

001401 

104003 

005763 

052737 

111315 

023715 

001401 

104003 

005724 

020427 

001271 



000004 
004737 



PRT1 
10:51 

000020 
000020 
000002 
001122 
000250 
001124 

001124 



001122 
000250 
000001 
000360 
000100 

001124 



000002 
000020 

001124 



000002 
000200 

001124 



000002 
000040 

001124 



013532 



MACY11 306(1063) 10-AUG-81 
T44 TEST POLLED 



F 4 
10:58 PAGE t >-17 
M0DE;CSRS A,B=OUT 



C,D-IN,ACTIVE LOW 



SEG 0044 



013124 



01U66 012704 000002 



MOVB #CIRMR,(RO) 

MOVB *CIRMR,(R2) 

CLR 2(R0) 

2$: MOV R1,SBDADR 

MOVB *MIRR,(RO) 

MOVB <R4),$GDDAT 

MOVB <R1),(R5) 

CMP $GDDAT,(R5) 

BEQ 3$ 

ERROR 3 

3$: MOV R3,$fiDADR 

MOVB #MIMR,(R2) 

001124 MOVB 1(R4),$GDDAT 

001124 BIC #360,$GDDAT 

001124 BIS #100,$GDDAT 

MOVB (R3),(R5) 

CMP $GDDAT,<R5) 

BEQ 4$ 

ERROR 3 

4$: TST 2(R2) 

001124 BIS #20,$GDDAT 

MOVB (R3),(R5) 

CMP SGDDAT,(R5) 

BEQ 5$ 

ERROR 3 

5$: CLR 2(R1) 

001124 BIS #200,SGDDAT 

MOVB (R3),(R5> 

CMP SGDDAT,(R5) 

BEQ 6$ 

ERROR 3 

6$: TST 2(R3) 

001124 BIS #40 f $GDDAT 

MOVB (R3),(R5) 

CMP $GDDAT,(R5) 

BEQ 7$ 

ERROR 3 

7$: TST (R4) + 

CMP R4,*ENDDAT 

BNE 1$ 



; CLEAR IMR+IRR GROUP 1 

; CLEAR IMR+IRR GROUP 2 

/CLEAR D8RA,ACTIVE LOW WILL SET RPLV C 

; GROUP 1 DATA PORT 

;LOAD BITS TO REAP IRR 

;READ IRR, GROUP 1 



IRR ERROR, GROUP 1 

GROUP 2 DATA PORT 

LOAD MODE BITS TO READ IRR GR0UP2 

BUILD EXPECTED DATA 

SAVE BITS 0-3 

EXPECTED 0-3.URPLY 6<C) 

READ IRR BITS, GROUP 2 



IRR ERROR .GROUP 2 

READ DBRC FOR RHLY 4(A) 

STORE EXPECTED 

READ IRR BITS, GROUP 2 



IRR ERROR, GROUP 2 

CLEAR D8RB rOR RPY 7(D) 

EXPECTED 

READ IRR BITS GROUP 2 



;IRR ERROR, GROUP 2 
;READ DBRD FOR RPLY 5(B) 

;READ IRR BITS GR0UP2 

;GET NEXT PATTERN 
;IRR ERROR, GROUP 2 
; INDEX DATA TABLE 
;CHErK FOR END 
;D0 NEXT PATTERN 



;;*************************************************************** 

;*i'EST 45 TEST GROUPS 1,2 IN POLLED MODE, NO REPLY 
******************* ********************************************** 

TST45: 



SCOPE 
JSR 



MOV 



PCCLRCSR 



#2,R4 



CLEAR ALL CSRS 

RO = CSRA-GROUP 1 CONTROL 

R1 = CSRB-GROUP 1 DATA 

R2 = CSRC-GROUP 2 CONTROL 

R3 = CSRD-GROUP 2 DATA 

TWO PASSES 

FIRST PASS CSRA,CGRB * OUTPUT 

CSRCCSRD = INPUT 
SEC PASS CSRCCSRD = OUTPUT 

CSRA,CSRB = INPUT 



CVDRCB DRV11J DIAG TST 
CVDRCB.P11 10-AUG-81 



1398 
1399 
1A00 

HOI 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 



011472 

011500 

011506 

011514 

011516 

01 1 520 

011524 

011530 

011534 

011540 

011544 

011552 

011556 

011560 

011564 

011570 

011572 

011574 

011600 

011602 

011606 

011612 

011614 

011616 

011624 

011630 

011636 

011642 

011646 

011652 

011654 

011660 

011662 

011666 

011670 

011676 

011702 

011704 

011706 

011712 

011716 

011722 

011724 

011730 

011732 

011736 

011740 

011746 

011752 

011754 

011756 

011760 

011762 

01 1 766 

011772 

011776 



112760 

112761 

012760 

105010 

105012 

112710 

112712 

112710 

112712 

005760 

012737 

010037 

111015 

042715 

023715 

001401 

104007 

010237 

111215 

042715 

023715 

001401 

104007 

012762 

005761 

012763 

010137 

112710 

005037 

111115 

023715 

001412 

005737 

001406 

012737 

023715 

001401 

104003 

005037 

010337 

112712 

111315 

023715 

001412 

00573? 

001406 

01273? 

023715 

001401 

104003 

005304 

001413 

00473? 

013700 

013701 

013702 



000001 111$: 

000001 

000002 



001124 



PRT1 
10:51 

000001 
000001 
177777 



000204 
000204 
000020 
000020 
000002 
000320 
001122 

000007 
001124 



001122 

000007 
001124 



OOOCOO 000002 

000002 

000000 000002 

001122 

000250 

001124 

001124 

017306 

000300 001124 
001124 

001124 
001122 
000250 

001124 

017306 

000060 001124 
001124 



013124 
001352 
001356 
001342 



MACY11 306(1063) 10-AUG-81 10:58 
145 TEST GROUPS 1,2 IN 



G 4 
PAGE 2-18 
POLLED MODE, NO REPLY 



SEQ 0045 



1$: 



2$: 



100$: 
3$: 



101$: 
4$: 



M0V8 

MOVB 

MOV 

CLRB 

CLR8 

MOVB 

MOVB 

MOVB 

MOVB 

TST 

MOV 

MOV 

M0V8 

BJC 

CMP 

BEQ 

ERROR 

MOV 

MOVB 

BIC 

CMP 

BEQ 

ERROR 

MOV 

TST 

MOV 

MOV 

MOVB 

CLR 

MOVB 

CMP 

BEQ 

TST 

BEQ 

MOV 

CMP 

BEQ 

ERROR 

CLR 

MOV 

MOVB 

MOVB 

CMP 

BEQ 

TST 

BEQ 

MOV 

CMP 

BEQ 

ERROR 

DEC 

BEQ 

JSR 

MOV 

MOV 

MOV 



J8IT0.KR0) 

*BIT0,KR1) 

#-1,2<R0> 

<R05 

(R2) 

#204, (R0> 

#204. <R2) 

#CIRMR,(RO) 

#CIRMR,(R2) 

2(R0) 

#320,$GDDAT 

RO,$BDADR 

<R0),<R5) 

#7,(R5) 

$GDDAT,(R5> 

1$ 

7 

R2.$BDADR 

(R2),(R5) 

#7.(R5) 

$GDDAT,(R5) 

2$ 

7 

#0,2<R2) 

2(R1) 

#0,2(R3) 

R1,$BDADR 

#MIRR,(RO) 

$GDDAT 

(R1),(R5) 

$GDDAT,(R5) 

3$ 

KXTFLAG 

100$ 

#300,$GDDAT 

$GDDAT,(R5) 

3$ 

3 

$GDDAT 

R3,$BDADR 

#MIRR,<R2) 

(R3),(R5) 

$GDDAT,(R5) 

4$ 

KXTFLAG 

101$ 

#60,$GDDAT 

$GDDAT,<R5) 

4$ 

3 

R4 

TST46 

PCCLRCSR 

DRCSC.RO 

DRCSD,R1 

DRCSA,R2 



SET CSR TO OUTPUT MODE 

SET CSR TO OUTPUT MODE 

SET ALL ONES DBR FOR H TO L 

CHIP RESET GROUP CSR 

CHIP RESET GROUP CSR 

LOAD MODE BITS FOR POLLED MODE 

LOAD MODE BITS FOR POLLED MODE 

CLEAR IMR+IRR 

CLEAR IMR+IRR 

READ DBR IN OUTPUT MODE, WO REPLY 

STORE EXPECTED 

STORE ADDRESS 

READ STATUS 

CLEAR UNDEFINED BITS 

CHECK STATUS 

CHIP STATUS ERROR 
STORE ADDRESS 
READ STATUS 
CLEAR UNDEFINED BITS 



; CHIP STATUS ERROR 

;WRITE 0NLY,D8R INPUT MODE FOR NO REPLY 

;READ DBR OUTPUT MODE. NO REPLY 

;WRITE ONLY, DBR INPUT MODE, NO REPLY 

; CHIP DATA PORT 

;LOAD BITS TO READ IRR 

;IRR SHOULD BE ZERO 

;READ IRR 



ON KXT11, READ-BEFORE-VRITE... 
...AT 2$ UPSETS EXPECTED IRR. 
TRY THE ALTERNATE VALUE. 



;IRR ERROR 

.-CHIP DATA PORT 

;LOAD MODE BITS TO READ IRR 

;READ IRR BITS 



; ON iXT11, DITTO. 

; TRY THE ALTERNATE VALUE. 



IRR ERROR 

FINISHED TWO PASSES 

;BR IF EQUAL 

CLEAR ALL CSRS 

SET UP FOR NEXT PASS 



GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 



GPA 
GPA 
GPA 
GPA 
GPA 
GPA 



CVDRCB DRV11J DUG TST 
CVDRCB.P11 10-AUG-81 



145* 

1455 
1456 
1457 
(3) 
(3) 
(2) 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
150 
150 
1504 
1505 
1506 



012002 
012006 



012010 
012012 



012016 
012024 
012030 
012036 
012044 
012046 
012050 
012054 
012060 
012064 
012070 
012074 
012100 
012104 
012110 
012114 
012116 
012122 
012124 
012126 
012132 
012136 
012144 
012152 
012160 
012162 
012166 
012170 
012172 
012176 
012204 
012206 
012212 
012214 
012216 
01 




012254 
012256 



013703 
000631 



000004 
004737 



012737 

012704 

112762 

112763 

105010 

105012 

112710 

112712 

011462 

112710 

112712 

005062 

010137 

112710 

111437 

111115 

023715 

001401 

104003 

010337 

112712 

116437 

042737 

052737 

111315 

023715 

001401 

104003 

005760 

052737 

111315 

023715 

001401 

104003 

005063 

C52737 

111315 

023715 

001401 

104003 

005761 

052737 

111315 

023715 



PRT1 
10:51 

001346 



MACY11 30GC1063) 10-AUG-81 10:58 
T45 TEST GROUPS 1,2 IN 



013124 



012060 
013232 
000001 
000001 



000204 
000204 
000002 
000020 
000020 
0000C2 
001122 
000250 
001124 

001124 



001122 
000250 
000001 
000360 
000020 

001124 



000002 
000100 

001124 



000002 
000040 

001124 



000002 
000200 

00112* 



001110 

000001 
000001 



MOV 
BR 

•;************ 

;*TEST 46 

; ; ************ 

TST46: SCOPE 
JSR 



MOV 
MOV 
MOVB 
M0V8 
CLRB 
CLRB 
MOVB 
MOVB 
1$: MOV 
MOVB 
MOVB 
CLR 
2$: MOV 
MOVB 
MOVB 
MOVB 
CMP 
BEO 
ERROR 
3$: MOV 
MOVB 
001124 MOVB 
0CM24 BIC 
001124 BJS 

MOVB 
CMP 
BEQ 
ERROR 
4$: TST 
001124 BJS 

MOVB 
CMP 
BEQ 
ERROR 
5$: LLR 
001124 BIS 

MOVB 
CMP 
BEQ 
ERROR 
6$: TST 
001124 BJS 

MOVB 
CMP 



DRCS8,R3 
111$ 



H 4 
PAGE 2-19 
POLLED MODE, NO REPLY 



;D0 NEXT PASS 



SEQ 0046 



************ *** *************************** ********* 

TEST POLLED M0DE;CSRS C,D=OUT A,B=IN,ACTIVE LOW 

*************************************************** 



PCCLRCSR 



#1$,$LPERR 

*BEGPAT,R4 

#BIT0,KR2) 

*BIT0,KR3> 

(RO) 

(R2) 

#204, (RO) 

#204, (R2) 

(R4),2(R2) 

#CJRMR,(RO) 

#CIRMR,(R2) 

2CR2) 

R1,$8DADR 

MIRR-(RO) 

(R4),SGDDAT 

(R1),(R5) 

$GDDAT,(R5) 

3$ 

3 

R3,$8DADR 

#MJRR,(R2) 

1(R4)-$GDDAT 

#360 f $GDDAT 

#20 f iGDDAT 

(R3),(R5) 

$GDDAT,(R5) 

4$ 

3 

2(R0) 

#100,$GDDAT 

(R3),(R5) 

$GDDAT,(R5) 

5$ 

3 

2(R3) 

#4Q,$GDDAT 

(R3),(R5) 

$GDDAT,(R5) 

6* 

2(R1> 

#200,$GDDAT 
(R3).(R5) 
$GDDAT,(R5) 



CLEAR ALL CSRS 

RO = CSRA-GROUP 1 CONTROL 

R1 = CSR8-GR0UP 1 DATA 

R2 = CSRC-GROUP 2 CONTROL 

R3 = CSRD-GROUP 2 DATA 

SCOPE LOOP RETURN 

PATTERN TABLE 

SET CSRC TO OUTPUT MODE 

SET CSRD TO OUTPUT MODE 

CHIP RESET GROUP 1 CSRA 

CHIP RESET GROUP 2 CSRC 

LOAD MODE BITS FOR POLLED MODE,GR 1 

LOAD MODE BITS FOR POLLED M0DE,GR2 

SET PATTERN DBRC FOR H TO L 

CLEAR IWR+IRR GROUP 1 

CLEAR IWR+JRR GROUP 2 

CLEAR DBRCACTJVE LOW WILL SET RPLY A 

GROUP 1 DATA PORT 
LOAD BITS TO READ IRR 

READ IRR, GROUP 1 



;jRR ERROR, GROUP 1 
.•GROUP 2 DATA PORT 
;LOAD MODE UTS TO READ IRR GR0UP2 

;SAVfc BTTS 0-3 

;EXF\. *) X*.Ufo-'.Y 4(A) 

;REmu IRn blVi>.L*H)UP 2 



;IRR ERROR, GROUP 2 
;READ D6RA FOR R?l Y 6(C) 
;STORE EXPECTED 
C -READ IRR BiTS,6RMP ? 



IRR ERROR. GROUP 2 

CLEAR DBRt) FOR RPY 5(B) 

EXPECTED 

READ IRR BITS GROUP 2 



;IRR ERROR, GROUP 2 
;READ DBRB FOR RPLY 7(D) 

;READ IRR BITS GR0UP2 



CVDRCB DRV11J DIA6 TST 
CVDRCB. P11 10-AUG-81 



1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

(3) 

(3) 

(2) 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1550 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

<3) 

(3) 

(2) 

(1) 

1552 

1553 

1554 

1555 



012262 
012264 
012266 
012270 
012274 



012276 
012300 
012304 
012310 
012316 
012322 
012326 
012332 
012340 
012346 
012352 
012360 
012364 
012370 
012376 
012402 
012406 
012412 
012416 
012420 
012424 
012426 
012430 
012434 
012442 
012450 
012456 
012464 
012466 
012472 
012474 
012476 
012500 
012504 



012506 
012510 
012516 
012522 
012526 
012532 



001401 
104003 
005724 
020427 
001271 



000004 
004737 
012703 
012737 
013700 
013701 
013702 
112760 
112761 
112710 
112760 
005060 
112710 
I 12760 
011360 

01 or' 

11?* \; 

11 *;:■■ 

Vi ■■::>: 

02. 

001401 

104003 

010237 

112760 

116337 

042737 

052737 

111215 

023715 

001401 

10-003 

005723 

020327 

001325 



000004 
012737 
004737 
013700 
013701 
112760 



PRT1 
10551 



013532 



013124 
013232 
000001 
001342 
001346 
001356 
000001 
000001 
000224 
000224 
000002 
000020 
000020 
000002 
01122 
'0250 
: 11124 

001124 



001122 
000250 
000001 
000360 
000100 

001124 



013532 



000001 
013124 
001342 
001346 
001001 



MACY11 30GC1063) 10-AU6-81 
T46 TEST POLLED 



I 4 
10:58 PAGE 2-20 
MODE;CSRS CD-OUT 



A,8=JN,ACTIVE LOW 



SEQ 0047 



7$: 



BEG 

ERROR 

TST 

CMP 

BNE 



7$ 
3 
<R4) + 

R4,#ENDDAT 
1$ 



;JRR ERROR, GROUP 2 
; INDEX DATA TABLE 
; CHECK FOR END 
;D0 NEXT PATTERN 



;******************•******************************************** 

47 TEST IRR BITS WITH DATA PAT., POLLED MODE, ACT. HIGH 
a********************************************************** 



;*TEST 

••**** 

TST47; 



001110 

000001 
000001 

000010 
000010 



000010 
001124 
001124 
001124 



SCOPE 

JSR PCCLRCSR 

MOV #BEGPAT,R3 

MOV *1,$LPERR 

MOV DRCSA,RO 

MOV DRCSB,R1 

MOV DRCSD,R2 

M0V8 *8IT0,1(R0> 

M0V8 *8irO,1(R1> 

MOVB #224, (RO) 

MOVB *224,10<R0) 

1$: CLR 2(R0) 

MOVB #CIRMR,<RO) 

MOVB *CIRMR,10<R0) 

MOV <R3),2<R0> 

MOV R1,$8DADR 

MOVB #MJRR f (RO) 

MOVB (R3),$GDDAT 

MOVB (R1),(R5) 

CMP $GDDAT,<R5) 

BEQ 2$ 

ERROR 3 

2$: MOV R2,$6DADR 

MOVB #MIRR,10(R0> 

MOVB 1(R3).SGDDAT 

BJC *360,$GDDAT 

BIS #100,$GDDAT 

MOVB (R2), (R5) 

CMP $GDDAT,(R5> 

BEQ 3S 

ERROR 3 

3$: TST (R3)+ 

CMP R3,#ENDDAT 

BNE 1$ 



; CLEAR ALL CSRS 

;GET DATA PATTERN TABLE 

;SET UP SCOPE ADDRESS 



CSRA OUTPUT MODE 

CSRB OUTPUT MODE 

LOAD RODE BITS FOR POLLED M0DE,GP1 

LOAD MODE BITS FOR POLLED M0DE,GP2 

CLEAR DBRA 

CLEAR WR +IRR GROUP 1 

CLEAR IMR «• IRR GROUP 2 

STORE PATTERN INTO DBRA 

CSRB ADDRESS 

LOAD BITS TO READ IRR1 



READ IRft,GP1 



IRR ERROR, GP1 

CSRD ADDRESS 

SET MODE TO READ IRR BITS GROUP 2 

BUILD EXPECTED DATA 

BITS 0-3 EXPECTED 

M A M REPLY EXPECTED 

READ IRR2 



IRR GROUP 2 
INDEX DATA TABLE 
CHECK FOR PATTERN END 
DO NEXT PATTERN 



•**************************t*************»*********************** 
;*TEST 50 TEST CSRA AND CSRB WITH HESET 

••I-**************************************************** ********** 

TST50; SCOPE 

001160 MOV *1,$TIMES ;:D0 1 ITERATION 

JSR PCCLRCSR ;CLEAR ALL CSRS 

MOV DRCSA,RO 

MOV DRCS8.R1 

000001 MOVB #IEJBiT0,1(R0) ;CSRA TO OUTPUT MODE 



CVDRCB DRV1U DIAG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 



1556 
1557 
155J 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
156? 
15/0 
1571 
15?'2 
15*5 
(3) 
(3) 
(?) 
CO 
1574 
1575 
157* 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 



012540 
012546 
012552 
012560 
012562 
012564 
012570 
012574 
012576 
012600 
012606 
012612 
012614 
012620 
012622 



012624 
1 2626 
012634 
012640 
012644 
012650 
012656 
012664 
C12670 
0126?6 
012700 
012702 
012706 
012712 
012714 
012716 
012722 
012730 
012752 
012736 
012740 
012^42 



112761 
010037 
012737 
000005 
011015 
042715 
023715 
001401 
104002 
012737 
010137 
011115 
023715 
001401 
104002 



000004 
012737 
004737 
013702 
013703 
112762 
112763 
010237 
01273/ 
000005 
011215 
042715 
023715 
001401 
1040C2 
010337 
012737 
011315 
023715 
001401 
104002 



000001 
001122 
100300 



000007 
001124 



100000 
001122 

001124 



000001 
013124 
001352 
001356 
000001 
000001 
001122 
100200 



000007 
001124 



C011 22 
100000 

001124 



MACY11 30GH063) 10-AUG-81 10:58 
T50 TEST CSRA AND CSRB 



J 4 

PAGE 2-21 
WITH RESET 



SEQ 0048 



000001 MOVB 

MOV 

001124 KOV 

RESET 
MOV 
BIC 
CMP 
BEQ 
ERROR 
MOV 
MOV 
MOV 
CMP 
BEQ 
ERROR 



001124 1$: 



#BIT0,1(R1) 
RO,$BDADR 
#100300, $GDDAT 

<R0),(R5) 

#7,(R5) 

$GDDAT,(R5) 

1$ 

2 

*10000u,$GDDAT 

R1.SBDADR 

(R1),(R5) 

$GDDAT,(R5) 

TST51 

2 



SET CSRB TO OUTPUT MODE 

STORE CSRA ADDRESS 

RDY + CHIP STATUS EXP'D 

INITIALIZE 

STORE REC'D 

CLEAR UNDEFINED BITS 

MAKE COMPARE 

CSRA ERROR ON RESET 

STORE EXPECTED 

CHECK CSRB 

STORE IN S8DDAT 

MAKE COMPARE 

;BR IF EQUAL 

CSRB ERROR WITH RESET 



;*TEST 

♦;**** 

TST51: 



; ************** 

51 
********* 

SCOPE 

001160 MOV 

JSR 
MOV 
MOV 
000001 MOVB 
000001 MOVB 

MOV 
001124 MOV 

RESET 
MOV 
BIC 
CMP 
Pt"U 
ERROR 
1$; MOV 
001124 MOV 

MOV 
CMP 
BEQ 
ERROR 
2$: 



************************************************** 

TEST CSRC AND CSPD WITH RESET 
****************** v.-****************************** 



#1,$TIMES 

PC.CLRCSR 

DRCSCR2 

DRCSD,R3 

#BIT0,1(R2) 

#BIT0J(R3) 

R2 £ $BDAD3 

*100?00,$GDDAT 

(R2),(rt5) 

#7,(R5) 
SGDDAT,(R5> 

1$ 

-\ 

K3.SBDADR 

;V100OO0.$GDDAT 

(R3),<r5> 

SGDDAT,(R5> 

2$ 

2 



;;D0 1 ITERATION 



SET CSRC TO OUTPUT MODE 

SET CSRD TO OUTPUT MODE 

STORE ADDRESS 

RDY + CHIP STATUS 

INITIALIZE 

STORE CSRC 

CLEAR UNDEFINED BITS 

■MAKE COMPARE 

CSRC ERROR WITH RESET 
CHECK CSRD 
STORE EXPECTED 
READ CSRD 
;MAKb' COMPARE 

;CSRD ERROR ON RESET 



CVDRCB DRV1U DIAG TST 
CVDRCB.P11 10-AUG-81 



1596 
1597 
1598 
1599 
1600 
1601 
1602 



1603 
1604 
1605 
1606 
1607 
1608 
1609 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(2) 
<2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
CD 
(1) 



012742 
012746 
012750 
012754 
012756 
012762 
012766 
012774 
012776 



013002 
013002 
013004 
013010 
013014 
013020 
C 1302 i 
013030 

01 302: 

013034 
013036 
013040 
013042 
013046 
013052 
013054 
013060 
013U64 
013066 
013070 
013072 
013074 
013076 
013100 
013100 
013102 
013104 
013107 



013701 
000241 
006037 
001412 
162701 
005237 
032737 
001764 
000137 



000240 
0050V 
00503 7 
00523/ 
04273? 
005327 
000001 
003022 
012737 
000001 
013030 
104401 
013746 
104405 
104401 
011700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 

002034 

377 

015 



PRT1 
10:51 



001342 

001364 

000020 
001202 
000001 

002100 



001102 
001160 
001176 
100000 



013107 
001176 

013104 
000042 



MACY11 30GC1063) 10-AUG-81 10:58 
T51 TEST C5RC AMD CSRD 



K 4 

PAGE 3 
WITH RESET 



SEQ 0049 



001364 



001176 



♦•DON'T 
NXDEV: 
NXDEV1 



.SBTTL 



REPORT 
MOV 
CLC 
ROR 
BEQ 

sue 

INC 
BIT 
BEO 
JMP 
END 



M EOP M UNTIL 
DRCSA,R1 



ALL 



OF 



DMAP 
$EOP 
#20, R1 
SUN IT 
01 .DMA 
NXDEV1 
NEXPAS 
PASS ROUTINL 



SELECTED DRVH-J'S HAVE BEEU TESTED, 
;INIT TO SETUP NEXT DRV11J ADDRESSES 
; CLEAR CARRY FOR DEVICE MAP 
;LOOK FOR NEXT DRV11J 
;BR IF ALL TESTED 
;NEXT DRV11-J STARTS -20 
; UPDATE UNIT NUMBER 
;I5 UNIT SELECTED? 
;NEXT,IF NOT SELECTED 
;TEST NEXT DRV11-J 



*************************************************************** 



;*INCREMENT THE PASS NUMBER (SPASS) 
;*TYPE "END PASS 0XXXXX" (WHERE XXXXX 
;*lf THERES A MONITOR GO TO IT 
;*lf THERE IWT JUMP TO START1 



IS A DECIMAL NUMBER) 



SEOP: 



SEOPCT: 
SENDCT: 



377 

042412 



000 
042116 



SGET42: 
SENDAD: 

SDOAGN: 

SRTNAP: 
SENULL; 
SENDMG: 



NOP 

CLR 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

TYPE 

MOV 

TYPDS 

TYPE 

MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 
.WORD 
.BYTE 
.ASCI2 



$TSTNM 

$TIMES 

SPASS 

#100000, $PASS 

<PC) + 

1 

SDOAGN 

(po+, acpcn 
1 

,SENDMG 
SPASS, -(SP) 

,SENULL 
a#42,R0 
SDOAGN 

PC,(RO) 



a<pc>+ 

START1 
<15><12>/END PASS 



;;ZERO THE TEST NUMBER 
;;ZERO THE NUMBER OF ITERATIONS 
;; INCREMENT THE PASS NUMBER 
;; DON'T ALLOW A NEG, NUMBER 
;;LOOP? 

• * YES 

; -RESTORE COUNTER 



TYPE *tND PASS #" 

SAVE SPASS FOR TYPEOUT 

GO TYPE— DECIMAL ASCII WITH SIGN 

TYPE A NULL CHARACTER 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT11 



RETURN 



NULL 
ft/ 



CHARACTER STRING 



CVDRCB DRV11J DIAG TST PRT1 
CVDRCB. P11 10-AUG-81 10:51 

1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 

1619 013124 012705 001126 

1620 C13130 013700 001342 

1621 013134 013701 001346 

1622 013140 013702 001352 

1623 013144 013703 C01356 

1624 013150 005037 001124 

1625 013154 005015 

1626 013156 005010 

1627 013160 J05061 000001 

1628 013164 005012 

1629 013166 105063 000001 

1630 013172 000207 
1631 

163c 
1633 

1634 01.4174 010046 

1635 013176 013700 001342 

1636 013202 105060 000011 

1637 013206 1U760 000001 

1638 013214 005060 000002 

1639 013220 105010 

1640 013222 105060 000010 

1641 01322o 012600 

1642 013230 000207 
1643 



MACY11 306(1063) 10-AUG-81 10:58 
PROGRAM SUBROUTINES 

.SBTTL PROGRAM SUBROUTINES 



L 4 

PAGE 



3-1 



SEQ 0050 



**************************************************************** 

CLEAR ALL CONTROL/STATUS REGISTERS 

INIT REGISTERS R0-R4 WITH CSRA-CSRD 

AND STORE *8DDAT INTO R5. 

******************************** ******************************** 



CLRCSR: MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
CLRB 
CLR 
CLRB 
RTS 



*$8DDAT,R5 

DRCSA,RO 

DRCSB,R1 

DRCSCR2 

DRCSD,R3 

SGDDAT 

(R5) 

(RO) 

1(R1) 

(R2) 

KR3) 

PC 



;8AD DATA STORAGE IN R5 

;CSRA ADDRESS TO RO 

;CSRB ADDRESS TO R1 

;CSRC ADDRESS TO R? 

;CSRD ADDRESS TO R3 

; CLEAR EXPECTED 

; CLEAR REC'D 

; CLEAR CSRA;CHIP RESET GROUP 1 

; CLEAR HIGH BYTE CSR8 

; CLEAR CSRC;CHIP RESET GROUP 2 

; CLEAR HIGH BYTE CSRD 



;CLEAR IRR REGISTERS, GROUP 1, GROUP 2 WITH CHIP RESET 



000001 



CLRIRR: MOV 
MOV 
CLRB 
M1VB 
CLR 
CLRB 
CLRB 
MOV 
RTS 



RO,-<SP> 
DRCSA.RO 
11 (RO) 
JBITO.KRO) 

2(R0) 

(RO) 

10(R0) 

(SP)+, RO 
PC 



START OF CSR ADDRESS 
CSRC TO INPUT MODE 
CSRA TO OUTPUT MODE 
CLEAR DBF. A 
CHIP RESET OF GR0UP1 
CHIP RESET OF GROUP 2 
RESTORE REGISTER 
EXIT 



CVDRCB DRV11J DIAG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 

1645 
1646 
1647 
1648 
1649 

1650 013232 000000 

1651 013234 000001 

1652 013236 000003 

1653 013240 000007 

1654 013242 00001" 

1655 013244 000037 
1j56 013246 00007 , 7 

1657 013250 000171' 

1658 013252 00037/ 

1659 013254 000777 

1660 013256 001777 

1661 013260 003777 

1662 013262 007777 

1663 013264 017777 

1664 013266 037777 

1665 013270 077777 

1666 013272 177777 

1667 013274 177776 

1668 013276 177774 

1669 013300 177770 

1670 013302 177760 

1671 013304 177740 

1672 013306 177700 

1673 013310 177600 

1674 013312 177400 

1675 013314 177000 

1676 013316 176000 

1677 013320 174000 

1678 013322 170000 

1679 013324 160000 

1680 013326 140000 

1681 013330 100000 
1682 

1683 013332 000000 

1684 013334 000001 

1685 013336 000002 

1686 013340 000004 

1687 013342 000010 

1688 013344 000020 

1689 013346 000C40 

1690 013350 000100 

1691 0I3352 000200 

1692 013354 000400 

1693 013356 001000 

1694 013360 002000 

1695 013362 004000 

1696 013364 010000 

1697 013366 020000 

1698 013370 040000 

1699 013372 1U0000 

1700 013374 177777 



KACY11 306(1063) 10-AUG-81 10:56 
PROGRAM SUBROUTINES 



H 4 

PAGE 



SEQ 0051 



S8TTL PATTF'lio* fOR REGISTER R/W 

PATTERNS USED FOR LOADING/READING REGISTERS 



BEGPAT: 
BGPAT1; 



EDCH°1: 



BGCHP2: 



EDCHP2: 



BGCHP3: 



EDCHP3: 





1 

3 

7 

17 

37 

77 

177 

377 

777 

1777 

1777 

7777 

17777 

37777 

77777 

177777 

Mint 

17777k 
177770 
177760 
177740 
177700 
177600 
177400 
177000 
176000 
174000 
170000 
160000 
140000 
100000 

000000 

1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 

177777 



; GROWING 1 



.-GROWING 



; WALKING 1 



/WALKING 



CVDRCB 


0RV11J 


DIA6 TST PRT1 


CVDRCB* 


P11 10-AU6-81 10:51 


1701 


013376 


177776 


1702 


013400 


177775 


1703 


013402 


177773 


1704 


013404 


177767 


1705 


013406 


177757 


1706 


013410 


177737 


1707 


013412 


177677 


1708 


013414 


177577 


1709 


013416 


177377 


1710 


013420 


176777 


1711 


015422 


175777 


1712 


013424 


173777 


1713 


013426 


167777 


1714 


013430 


157777 


1715 


013432 


137777 


1716 


013434 


077777 


1717 


013436 


177777 


1718 


013440 


000000 


1719 






1720 






1721 


013442 


155555 


1722 


013444 


133333 


1723 


013446 


066666 


1724 


013450 


125252 


1725 


013452 


052525 


1726 


013454 


177777 


1727 


CI 3456 


000000 


1728 


013460 


107070 


1729 


013462 


070707 


1730 


013464 


144444 


1731 


013466 


033333 


1732 


013470 


011111 


1733 


013472 


022222 


1734 


013474 


044444 


1735 


013476 


111111 


1736 


013500 


166666 


1737 


013502 


010421 


1738 


013504 


02104? 


1739 


013506 


031 46 J 


1740 


013510 


042104 


1741 


013512 


063146 


1742 


013514 


073567 


1743 


013516 


104210 


1744 


013520 


114631 


V45 


013522 


135673 


1746 


013524 


146314 


1747 


013526 


156735 
167356 


1748 


013530 


1749 


013532 


000000 


1750 







MACY11 





N 4 


30GH063) 10-AUG-81 10:58 PAGE 


PATTERNS FOR REGISTER R/W 


B6CHP4: 


177776 




177775 




177773 




177767 




177757 




177737 




177677 




177577 


EDCHP4: 


".77377 




176777 




175777 




173777 




167777 




157777 




137777 




077777 




177777 


ENDPAT: 


000000 


;DATA 


PATTERNS 


PATDAT: 


155555 




133333 




066666 




125252 




052525 




177777 




000000 




107070 




070707 




144444 




033333 




011111 




022222 




044444 




111111 




166666 




010421 




021042 




031463 




042104 




063146 




073567 




104210 




114631 




135673 
146314 






156735 
167356 




ENDDAT: 


000000 



4-1 



SEQ 0052 



CVDRCB DRV11J DJAG TST 
CVDRCB. P11 10-AUG-81 



1752 

1753 

1754 

(1) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

<1) 

<1) 

(1) 

(1) 

(1) 

(1) 

<1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 



PRT1 
10:51 
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4-2 



SEQ 0053 



013534 

013540 

013542 

013544 

013546 

013550 

013554 

013562 

013564 

013572 

013574 

013600 

013604 

013606 

013614 

013616 

013620 

013622 

013624 

013626 

013632 

013634 

013640 

013642 

013646 

013650 

013652 

013654 

013656 

013662 

013664 

013670 

013674 

013676 



105737 
100002 
000000 
000430 
010046 
017600 
122737 
001011 
132737 
001405 
010037 
004737 
000000 
132737 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001165 
105037 
000755 
004737 
123726 
01.350 
13746 



8 



001157 



000002 
000001 

000100 

013604 
014076 



001210 
001211 



000040 001211 



000002 
000011 

000200 

014064 

013746 
001156 

001154 



013702 105366 000001 
013706 002770 



„SBTTL SYSMAC ROUTINES 
.SBTTL TYPE ROUTINE 



*********************************** u **************************** 

♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 

*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFJLLC CONTAINS THE CHARACTER TO FILL AFTER. 



*N0TE1 
*N0TE2 
*N0TE3 
* 

*CALL: 

*1) USING A TRAP INSTRUCTION 

,MESADR 



* 

*0R 
* 

* 



STYPE 



1$: 



61$: 
62$: 

2$: 



60$: 
3$: 

4$: 



5$: 
6$: 



7$: 



TYPE 

TYPE 
MESADR 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

CMPB 

BNE 

BITS 

BEO 

MOV 

JSR 

.WORD 

BITB 

BNE 

MOVB 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEO 

CMPB 

BNE 

TST 

TYPE 

$CRLF 

CLRB 

BR 

JSR 

CMP8 

BNE 

MOV 

DECB 
BLT 



$TPFLG 
1$ 

3$ 

RO.-(SP) 

32(SP),R0 

*APTENV,$ENV 

62$ 

#APTSPOOL,$ENVM 

62$ 

R0,61$ 

PC,$ATY3 



#APTCSUP,$ENVM 

60$ 

(RO)+,-(SP) 

4$ 

(SP) + 

<SP)+, RO 

*2,<SP) 

*HT. (SP) 
8$ 

*CRLF,(SP) 
5$ 



$CHARCNT 

21 

PC,$TYPEC 

$FlLLC,<SP>+ 

2$ 

$NULL,-<SP) 

KSP) 

6$ 



;;MESADR IS FIRST ADDRESS OF AN ASCII STRING 



IS THERE A TERMINAL? 

BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO, GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO,GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES, SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

BRANCH IF NOT <CRLF> 

POP <CRXLF> EOUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR IF NO— GO POP THE NULL OFF OF STACK 



CVDRCB DRV11J DIAG TST 
CVDRCB.P11 10-AUG-81 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
1755 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(3) 
(1) 
(1) 
(1) 
(1) 



013710 
013714 
013720 



013722 
013726 
013732 
013740 
013742 
013744 
013746 
013746 
013752 
013754 
013760 
013764 
013770 
013772 
013772 
013776 
014000 
014004 
014010 
014014 
014016 
014016 
014020 
014020 
014024 
014026 
014034 
014042 
014044 
014050 
014052 
014060 
014062 
014064 
014066 



014070 
014076 
014104 
014106 
014114 
014114 
014116 
014120 
014124 
014126 
014134 



004737 
105337 
000770 



112716 
004737 
132737 
001372 
005726 
000724 

105777 
100022 
017746 
042716 
122716 
001012 

105777 
100375 
117716 
042716 
122716 
001366 

005726 

105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



112737 
11273/ 
000403 
112737 

010046 
010146 
105737 
001450 
122737 
001031 



PRT1 
10:51 

013746 
014064 



000040 
013746 
000007 



165172 

165166 
177600 
000023 



165146 

165142 
177600 
000021 



165124 

000002 
000015 

014064 

000012 
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4-3 



SEQ 0054 



000001 
000001 



JSR 

DECS 

BR 



PC,$TYPEC 

SCHARCNT 

7$ 



.•HORIZONTAL TAB PROCESSOR 



014064 



014332 
000001 



8$: 
9$: 



$TYPEC; 



101$: 



102$: 
10$; 



MOVB 

JSR 

B1TB 

BNE 

TST 

BR 

TSTB 

BPL 

MOV 

BIC 

CMPB 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMPB 

BNE 

TST 



165116 
000002 



000002 1$: 



TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLR6 
BR 

CMPB 
BEQ 
INCB 
$CHARCNT:.W0RD 
$TYPEX; RTS 



#• ,(SP) 

PC.STYPEC 

#7,$CHARCNT 

9$ 

(SP) + 

2$ 

a$TKS 

10$ 

a$TKB j ,-(SP) 

#177600, <SP) 

*$XOFF,(SP) 

102$ 

a$TKS 

101$ 

a$TK6,(SF') 

#1 77600, (SP) 

#$XON,(SP) 

101$ 

(SP> + 

asTPs 

10$ 

2(SP),a*TP3 

#CR,2(SP> 

1$ 

$C»HARCNT 

$TYPEX 

*LF,2(SP) 

STYPEX 
(PO + 

PC 



;;G0 TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 

;;LOOP 



;;REPLACE TAB WITH SPACE 
;;TYPE A SPACE 
;;BRANCH IF NOT AT 
;;TAB STOP 

;;POP SPACE OFF STACK 
;;GET NEXT CHARACTER 

;;CHAR IN KYBD BUFFER? 

;;BR If NOT 

;;GET CHAR 

;;STP1P EXTRANEOUS BITS 

;;WAS CHAR XOFF 

;;BR IF NOT 

;;WAIT FOR CHAR 

;;GET CHAR 
;;STRIP IT 
;;WAS IT XON? 
;;BR IF NOT 

;;flX STACK 

;;WAIT UNTIL PRINTER IS READY 

;;LOAD CHAP TO BE TYPED INTO DATA REG. 

;;IS CHARACTER A CARRIAGE RETURN? 

;;8RANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 

;;c.m 

;;IS CHARACTER A LINE FEED? 

;;BRANCH IF YES 

;; COUNT THE CHARACTER 

;; CHARACTER COUNT STORAGE 



MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 

MJD001 



014334 
014332 



.SBTTL APT COMMUNICATIONS ROUTINE 

• ***** ***************** ****************************************** 



000001 014334 



iATYl: 

$ATY3: 

SATY4: 
$ATYC: 



001210 



MOVB #1 # SFFLG 

MOVB n.SMFLG 

BR $ATYC 

MOVB #1 # $FFI.G 

MOV RO,-(SP) 

MOV R1,-(SP) 

TSTB $MFLG 

BEO 5$ 

CMPB *APTENV,$ENV 

BNE 3$ 



;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 

;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;SHOULD TYPE A MESSAGE? 
;;IF NOT; BR 
.'.♦OPERATING UNDER APT? 
r.lf NOT: BR 



CVDRCB DRV11J D1AG TST 
CVDRCB.P11 10-AUG-81 



(1) 

n> 
(i) 
(D 
(D 
(D 
(i) 
(D 
(i) 
(i) 
(D 
(D 
(D 
(D 
(D 
(D 

(3) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(3) 
(1) 
(1) 
(1) 
(1) 

(1) 
(1) 
(1) 
<1) 
1756 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



014136 

014144 
014146 
014152 
014160 
014164 
014166 
014172 
014174 
014176 
014202 
014204 
014210 
014216 
014220 
0*i 4226 
014234 
014240 
014244 
014246 
014246 
014252 
014254 
014260 
014262 
014266 
014270 
014276 
014304 
014310 
014314 
014320 
014324 
014326 
014330 
014332 
014333 
014334 



132737 
001425 
017600 
062766 
005737 
001375 
01003 7 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
01 7637 
062766 
013746 
004737 
000000 

105737 
001416 
005737 
001413 
005737 
001375 
017637 
062766 
005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 
014336 
000200 
000001 
000100 
000040 



PRT1 
10:51 

000100 

000004 
000002 
001170 

001204 



001204 

001206 

000004 

000004 
000002 
177776 
013534 



014334 

001210 

001170 

000004 
000002 
001170 
014334 
014333 
014332 



5 
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APT COMMUNICATIONS ROUTINE 
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SEQ 0055 



001211 
000004 



001170 

014244 
000CC4 



001172 
000004 



1$: 



2$: 



3$: 



4$: 
5$: 

10$: 



BIT8 

BEG 

MOV 

ADD 

TST 

BNE 

MOV 

TSTB 

BNE 

SU8 

ASR 

MOV 

MOV 

BR 

MOV 

ADD 

MOV 

JSR 

.WORD 



TST6 
BFQ 
TST 
BEQ 
11$: TST 
BNE 
MOV 
ADD 
INC 
12$: CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
IMFL6: .BYTE 
SLFLG: .BYTE 
$FFLG: .BYTE 
.EVEN 
APTSJZE=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 
.S8TTL BINARY 



*APTSPOOL,$ENVM 

3$ 

94<SP),R0 

02,4'SP) 

$MSGTYPE 

1$ 

RO,$MSGAD 

(RO)* 

2$ 

$MSGAD,RO 

RO 

RO,$MSGLGT 

*4,$MSGTYPE 

5$ 

94(SP),4$ 

*2,4(SP) 

17^776, -<SP) 

PC, $TYPE 



$FFLG 
12$ 

$m 

12$ 

$MSGTYPE 

11$ 

a4(SP),$FATAL 

*2,4(SP) 

$MSGTYPE 

$FFLG 

$LFLG 

$MFIG 

<SP)+, R1 

(5P)+,R0 

PC 









; /SHOULD SPOOL MESSAGES? 
;;1F NOT: BR 
;;GET MESSAGE ADDR. 

;:8UMP RETURN ADDR. 
;;SEE IF DONE W/ LAST XMISSION? 
;;1F NOT: WAIT 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 

;;SUB START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 



;;PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 
ON STACK 
MACRO 



;;PUSH 
;;CALL 



;;8UMP 
1^776 



TYPE 



SHOULD REPORT FATAL ERROR? 

IF NOT: BR 

RUNNING UNDER APT? 

IF NOT: BR 

FINISHED LAST MESSAGE? 

IF NOT: WAIT 

GET ERROR * 

;;BOMP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 



TO OCTAL (ASCII) AND TYPE 



*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

*$TYPQS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

♦CALL: 



MOV 
TYPOS 
.BYTE 
.BYTE 



NUM,-(SP) 

N 

M 



NUMBER TO BE TYPED 

CALL FOR TYPEOUT 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

M=1 OR 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
»1) 
(1) 
(1) 
(1) 
(1) 
(1) 



000000 
000001 
0K563 
000002 



CVDRCB DRV11J DIAG TST PRT1 
CVDRCB.P11 10-AUG-81 10:51 



(1) 
CD 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



MACY11 
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SEQ 0056 



014336 
014342 
014350 
014354 
014360 
014362 
014370 
014376 
014404 
014406 
014410 
014412 
014416 
014420 
014424 
014430 
014434 
014440 
014442 
014444 
014446 
014450 
014*52 
014454 
014456 
014460 
014464 
014466 
014472 
014474 
014476 
01450C 
014502 
C14506 
0H512 
014516 
014522 
014526 
014530 
014532 
014534 
014536 
014540 
014542 



017646 
116637 
112637 
062716 
000406 
11273? 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 
052703 
052703 
110337 
104401 
105337 
003347 
002402 
005204 
000744 
012605 
012604 
012603 



*$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*$TYPOS OR $TYPOC 
*CALL: 

* MOV num,-<sp; 

* TYPON 

*$TYPOC — ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
•CALL: 

* MOV VUM,-(SP) 

* TYPOC 



;;NUM8ER TO BE TYPED 
;;CALL FOR TYPEOUT 



;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 



014561 



000001 014561 
000006 014563 
000005 014560 



014563 



000006 
014562 
014561 
000012 



014562 
^?7770 



000060 
000040 
014556 
014556 
014560 



STYPOS: MOV a(SP),-(SP) 

MOVB 1(SP),$0FILL 

MOVB (SP)+,$OM0DE+1 

ADD #2,(Sfo 

BR *TYPON 

STYPOC: MOVB /T1 # $0FILL 

MOVB *6,$0M0DE+1 

$TYP0N; MOVB *5,$0CNT 

MOV R3,-(SP) 

MOV R4,-(SP) 

MOV R5,-(SP) 

MOVB $0M0DE+1,R4 

NEG R4 

ADD *6,R4 

MOVB R4,$0M0DE 

MOVB $0FJLL,R4 

MOV 12(SP).R5 

CLR R3 

1$: ROL R5 

BR 3i 

2$: ROL R5 

ROL R5 

ROL »5 

MOV R5,R3 

3$: ROL R3 

DECB SOMOi)E 

BPL 7$ 

BIC #177770, R3 

BNE 4$ 

TST R4 

BEQ 5$ 

4$: INC R4 

BIS *'0.R3 

5$: BIS #' ,R3 

MOVB R3 f 8$ 

TYPE -8$ 

7$: DECB SOCNT 

BGT 2% 

BLT 6$ 

INC R4 

BR 2$ 

6$: MOV (SP)+,R5 

MOV <SP)*,R4 

MOV <SP)+,R3 



;; PICKUP THE MODE 
;;LOAD ZERO FILL SWITCH 
; /NUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 



SET THE ZERO FILL SWITCH 

SET FOR SIX(o) DIGITS 

SET THE ITERATION COUNT 

SAVE R3 

SAVE R4 

SAVE R5 

GET THE NUMBER OF DIGITS TO TYPE 

; SUBTRACT IT FOR MAX. ALLOWED 
;SAVE IT FOR USE 
;GET THE ZERO FILL SWITCH 
;PICKUP THE INPUT NUMBER 
; CLEAR THE OUTPUT WORD 
;ROTATE MSB INTO "C" 
;G0 DO MSB 
;F0RM THIS DIGIT 



GET LS8 OF THIS DIGIT 

1YPE THIS DIGIT? 

BR IF NO 

GET RID OF JUNK 

TEST FOR 

SUPPRESS THIS 0? 

BR IF YES 

DON'T SUPPRESS ANYMORE O'S 

MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 

SAVE FOR TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 

BR IF MORE TO DO 

BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 

GO DO THE LAST DIGIT 

RESTORE R5 

RESTORE R4 

RESTORE R3 



CVDRCB DRV11J DIAG TST PRT1 
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(1) 


014544 


016666 


000002 


(1) 


014552 


012616 




(1) 


014554 


000002 




(1) 


014556 


000 




(1) 


014557 


000 




(1) 


014560 


000 




(1) 


014561 


000 




(1) 


014562 


000000 




1757 








(1) 








(2) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 


014564 






<3) 


014564 


010046 




(3) 


014566 


010146 




(3) 


C14570 


010246 




(3) 


014572 


010346 




(3) 


014574 


010546 




(1) 


014576 


012746 


020200 


(1) 


014602 


016605 


000020 


(1) 


014606 


100004 




(1) 


0146*10 


005405 




(1> 


014612 


112766 


000055 


(1) 


014620 


005000 




(1) 


014622 


012703 


015000 


(1) 


014626 


112723 


000040 


(1) 


014632 


005002 




(1) 


0H634 


016001 


014770 


(1) 


014640 


160105 




(1) 


014642 


002402 




<1> 


014644 


005202 




(1) 


014646 


000774 




(!) 


014650 


060105 




11) 


014652 


005702 




(1) 


014654 


001002 




(1) 


014656 


105716 




(1) 


014660 


100407 




(1) 


014662 


106316 




(1) 


014664 


103003 




(1) 


014666 
014674 


116663 
052702 


000001 


CI) 


000060 


(1) 


014700 


052702 


000040 


(1) 


014704 


110223 
005720 




(1) 


014706 




(1) 


014710 


020027 


00001C 


(1) 


014714 


002746 




CI) 


014716 


^03002 




(1) 


0147^0 


010502 
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SEQ 0057 



177777 



8$: 

SOCNT: 
SOFILL: 
SOMODE: 
.SBTTL 



MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 

CONVERT 



2<SP),4(SP) 
<SP)+, <SP> 



;;SET THE STACK FOR RETURNING 



;; RETURN 

;;STORAGE FOR ASCII DIGIT 

;; TERMINATOR FOR TYPE ROUTINE 

;;OCTAL DIGIT COUNTER 

;;ZERO FILL SWITCH 

• /NUMBER OF DIGITS TO TYPE 

BINARY TO DECIMAL AND TYPE ROUTINE 



;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 
••CALL J 

.♦* * MOV NUM,-(SP> ;;PUT THE BINARY NUMBER ON THE STACK 
TYPDS ;;G0 TO THE ROUTINE 






STYPDS: 



1$: 



2$: 
3$: 



4$: 



5$: 



6$: 
7$: 



MOV RO,-(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R5 t -(SP) 

MOV #20200, -(SP) 

MOV 20(SP),R5 

BPL 1$ 

NEG R5 

MOVB (T-JCSP) 

CLR RO 

MOV rf$DBLK.R3 

MOVB #■ ,<R3)+ 

CLR R2 

MOV SDT8L(R0),R1 

SUB R1,R5 

BLT 4$ 

INC R2 

BR 3$ 

ADD R1.R5 

TST R2 

BNE 5$ 

TSTB (SP) 

BMI 7$ 

ASLB (SP) 

BCC 6$ 

M0V8 1(SP),-1(R3) 

BIS #»0,R2 

BIS #' ,R2 

MOVB R2 1 <R3)+ 

TST (RO)* 

CMP R0,*10 

BLT 2$ 

BGT 8$ 

MOV R5,R2 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON C "ACK 

SET BLANK S XH AND SIGN 

GET THE INK iUMBER 

8R IF INPUT 16 POS. 

MAKE THE BINARY NUMBER POS. 

MAKE IHl ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 

5TILL DOING LEADING O'S? 

BR If YES 

MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

uUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



SEQ 0058 



(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(3) 
(3) 
(3) 
(3) 
(1) 
(1) 
<1) 
<1) 
(1) 
(1) 
(1; 
(1) 
(1) 
1758 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(2) 
<1> 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



014722 
014724 

014726 
014730 
014736 
014740 
014742 
014744 
014746 
014750 
014752 
014756 
014764 
014766 
014770 
014772 
014774 
014776 
015000 



015010 
015010 
015012 
015014 
015020 
015022 
015030 
015034 
015040 
015046 
015054 
015062 
015064 
015070 
015074 
015074 
015102 
015104 
015112 
015116 
015117 
015120 
015122 
015126 



000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 
012601 
012600 
104401 
016666 
012616 
000002 
023420 
001750 
000144 
000012 
000004 



104407 
104407 
105237 
001775 
013777 
005237 
011637 
162737 
117737 
032777 
001004 
004737 
104401 

I22737 
001007 
113737 
004737 
000 



m777 177776 



015000 
000002 



ooo; 

005777 
100002 



001103 

001102 
001112 
001116 
000002 
164044 
020000 

015164 
001165 

000001 

001114 
014106 



164012 



000004 



164112 



001116 
0011,4 
164056 



001210 
015116 



8$: 



9$: 



$DT8L: 



$DBLK: 
.SBTTL 



BR 

TST8 

BPL 

MOVB 

CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

MOV 

MOV 

RTI 

10000, 

1000. 

100. 

10. 

.BLKW 

ERROR 



6$ 

(SP) + 

9$ 

-1 (SP). -2(R3) 

(R3) 

(SP)+,R5 

(SP)+, R3 

(SP)+, R2 

(SP)+, R1 

(SP)+, RO 

-$DBLK 

2(SP),4(SP) 

<5P)+, (SP) 



;G0 CHANGE TO ASCI J 

;WAS THE LSD THE FIRST NON-ZERO? 

;BR IF NO 

; YES— SET THE SIGN FOR TYPING 

;SET THE TERMINATOR 

;POP STACK INTO R5 

;POP STACK INTO R3 

;POP STACK INTO R2 

;POP STACK INTO R1 

;POP STACK INTO RO 

;NOW TYPE THE NUMBER 

;ADJUST THE STACK 

;RETURN TO USER 



HANDLER ROUTINE 



*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

*AND GO TO SWRCK ON ERROR 

*THE SWITCH OPTTONS PROVIDED BY THIS ROUTINE ARE: 

*SW15=1 HALT ON ERROR 

*SW13=1 INHIBIT ERROR TYPEOUTS 

*SW09=1 LOOP ON ERROR 

*CALL 

* ERROR 



N 



;;ERROR=EMT AND N -ERROR ITEM NUMBER 



SERROR: 



7$: 



20$: 



21$: 

22%: 
2$: 



CKSWR 

CKSWR 

INCB 

BEO 

MOV 

INC 

MOV 

SUB 

MOC 

61. 

BNE 

JSR 

TYPE 

CMPB 

BNE 

MOVB 

JSR 

.BYTE 

.BYTE 

BR 

TST 

BPL 



j GO LOOK 
$ERFLG 
7$ 

STSTNM^DISPLAY , 
IERTTL 
(SP)Mt ' 

a$ERMC,*ITEMB , 

*8IT13,aSWR 

20$ 

PC, SWRCK 

,$CftLF 

*APTENV,$ENV 

2$ 

$ITEMfi,21$ 

PC,$ATY4 





22$ 

aswR 

3$ 



;TEST FOR CHANGE IN SOFT-SWR 

FOR SWR CHANGE 

;SET THE ERROR FLAG 

;DON*T LET THE FLAG GO TO ZERO 

.-DISPLAY TEST NUMBER AND ERROR FLAG 

;INC THE ERROR COUNT 

;GET ADDRESS OF ERROR INSTRUCTION 

; STRIP AND SAVE THE ERROR ITEM CODE 

;SKIP TYPEOUT IF SET 

;SKIP TYPEOUTS 

;G0 TO USER ERROR ROUTINE 



RUNNING IN APT MODE 

NO-SKIP APT EHROR REPORT 

SET ITEM NUMBER AS ERROR NUMBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 
HALT ON ERROR 
SKIP IF CONTINUE 
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(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

1759 

1760 

1761 

1 762 

176*3 

1764 

1765 

1766 

1767 

(1) 

(2) 

<1; 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(2) 

(2) 

(1) 

(1) 

(D 

<1) 

(1) 

(1) 

(1) 

(1) 

<i> 

(D 
d) 
(i) 
d) 
d) 
d) 
(1> 
(D 
d) 
d) 
(D 



015130 
015132 
01513* 
015142 
015144 
015150 
015154 
015156 
015162 
015162 



015164 
015172 
015176 
015200 



000000 
104407 
032777 
001402 
013716 
005737 
001402 
013716 

000002 



113737 
004737 
104407 
000207 



015202 
015202 
015206 
015210 
015212 
1 5216 



104401 
010C46 
005000 
153700 

001004 



01522C 013746 



015224 
015226 
015230 
015232 
015234 
015236 
015240 
015244 
015250 
015252 
015254 
015256 
015262 
015266 
015270 
015272 
015274 
015300 
015302 
015304 
015306 
015312 



104402 
000426 
005300 
006300 
006300 
006300 
062700 
012037 
001 404 
104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
000207 
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001000 163776 3$: 



H 5 

PAGE 



4-8 



SEQ 0059 



001110 
001162 

001162 



4$: 



5$: 



HALT 




CKSWR 




BIT 


#BJT09,aSWR 


BEQ 


4$ 


MOV 


$LPERR,(SP) 


TST 


SESCAPE 


BEQ 


5$ 


MOV 


$ESCAPE,(SP) 



;HALT 
;TEST 
;L00P 
;BR Jf 
; FUDGE 
; CHECK 
;BR IF 
; FUDGE 



ON ERROR! 

FOR CHANGE IN SOFT-SWR 

ON ERROR SWITCH SET? 



NO 

RETURN 
FOR AN 
NONE 
RETURN 



FOR LOOPING 
ESUfZ ADDRESS 

ADDRESS FOR ESCAPE 



RTI 



001102 
015202 



;; RE TURN 
• -a************************************ * ************* ****** ****** 

;G0 TYPE ERROR 

;G0 UPDATE SOFTWARE SWR IF 'CNTRL/G 1 

; **************************************************************** 



001362 SWRCK: 



.SBTTL 



MOVB 

JSR 

CKSWR 

RTS 

ERROR 



$TSTNM,TSTNUM 
PCSERRTYP 



PC 
MESSAGE 



;SET UP TEST ft ON ER 
;G0 TYPE ERROR 
;G0 LOOK FOR SWR CHANGE 
; RE TURN TO ERROR HANDLER 
TYPEOUT ROUTINE 



********************************************** ******************* 
;*1H1S ROUTINE USES THE "ITEM CONTROL BYTE M (SITEM8) TO DETERMINE WHICH 



; "ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



» i 



<$ERRTB), 



001165 
001114 
001116 



001252 
015254 



001165 
015272 



001165 
001165 



SERRTYP 


• 






TYPE 


,$CRLF 




MOV 


RO,-(SP) 




CLR 


RO 




BISB 


a*$ITEMB,RO 




BNE 


1S 




MOV 


$ERRPC,-(SP) ; 




TYPOC 






BR 


6$ 


1$: 


DEC 


RO 




ASL 


RO 




ASL 


RO 




ASL 


RO 




ADD 


#$ERRTB-RO 
(R0H,2$ 




MOV 




BEO 


3$ 




TYPE 




2$' 


.WORD 


; 




TYPE 


,$CRLF ; 


3$: 


MOV 


(R0)+,4$ ; 




BEQ 


5$ ; 




TYPE 




4$: 


.WORD 


; 




TYPE 


(RO),RO ; 


5$: 


MOV 




BNE 


7$ ; 


6$: 


MOV 


(SP)+.RO ; 




TYPE 


,$CRLF ; 




RTS 


k ; 



'CARRIAGE RETURN" & "LINE FEED 



n 



;SAVE RO 
;PICKUP THE 



ITEM INDEX 



If ITEM NUMBER IS ZERO, JUST 
TYPE THE PC OF THE ERROR 
SAVE SERRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE— OCTAL ASCII (ALL DIGITS) 
GET OUT 

ADJUST THE INDEX SO TMAT It WILL 
WORK FOR THE ERROR TABLE 



FORM TABLE POINTER 

PICKUP ''ERROR MESSAGE" POINTER 

SKIP TYPEOUT IF NO POINTER 

TYPE THE 'tRROR MESSAGE" 

"ERROR MESSAGE" POINTER GOES HERE 

"CARRIAGE RETURN" t "LINE FEED" 

PICKUP "DATA HEADER" POINTER 

SKIP TYPEOUT IF 

TYPE THE "DATA HEADER" 

"DATA HEADER" POINTER GOES HERE 

"CARRIAGE RETURN r ' t "LINE FEED" 

PICKUP "DATA TABLE" POINTER 

GO TYPE THE DATA 

RESTORE RO 

"CARRIAGE RETURN" I "LINE FEED" 

RETURN 



CVDRCB DRV11J DIAG TST 
CV0RCB.P11 10-AUG-81 



(1) 
(?.) 
(2) 
(1; 
(1) 
(1) 
(1) 
(1) 
(1) 
1768 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(D 
<1> 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



015314 
015314 
015316 
015320 
015322 
015324 
015330 
015332 



01-5046 
10'. ,02 
005710 
001770 
104401 
000771 
020040 
015336 



015336 
015336 
015340 
015346 



015352 
015356 
015364 
015370 
015374 
015376 
015400 
015404 
015406 
015406 
015414 
015416 
015424 
015426 
015432 
015434 
015442 
015444 
015452 
015454 
015462 
015464 
015470 
015474 
015476 
015504 



104407 
0327?? 
001i»4 



015350 000416 



013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127737 
001465 
105737 
001421 
123737 
101015 
012777 
001404 
013737 

000446 
105037 
005037 
000415 
012777 
001011 



PRT1 
10:51 



I 5 
MACY11 30GC1063) 10-AUG-81 10:58 PAGE 
ERROR MESSAGE TyPEOUT ROUTINE 

7$: 



4-9 



SEQ 0060 



015332 
000 



000004 
015376 
1 77060 
000004 



000004 

000400 

163516 

001103 

001115 

001000 

001110 

001103 
001160 



000004 



163524 
001102 

001103 
163466 
001106 



MOV 


a(RO)+, 


-<SP) 


•;SAVE a(RO)+ FOR TYPEOUT 


TYPOC 






•;G0 TYPE— OCTAL ASCII (ALL 


TST 


(RO) 




;;IS THERE ANOTHER NUMBER? 


BEQ 


6$ 




;;8R IF NO 


TYPE 


,8$ 




j ; TYPE TW0(2) SPACES 


BR 




j ; LOOP 


.ASCJZ 


/ / 




;;TW0(2) SPACES 


.EVEN 









DIGITS) 



8$: 

.S8TTL SCOPE HANDLER ROUTINE 

********************************************************* ******* 

*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

*AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY *EG. (DISPLAY<7:0» 

•AND LOAD THE ERROR FLAG (SERFLG) INTO ^iSPLAY<15:08> 

*THE SWITCH OPTIONS PROVIDED BY THIS qOUTXNfc ARE: 

*SW14=1 LOOP ON TEST 

*SW11=1 INHIBIT ITERATIONS 

*SW09=1 LOOP ON ERROR 

*SW08=1 LOOP ON TEST IN SWR<7:0> 

♦CALL 

* SCOPE ;;SCOPE=IOT 



%SCOPE: 



040000 163572 1$: 



CKSWR 

BIT 

BNE 



;*****$) ART OF 
%XTSTR: BR 

MOV 

MOV 

TST 

MOV 

BR 
5$: CMP 

MCV 

BR 
6$:;###**END OF 

BIT 



*8ITK,aSWR 
SOVER 

CODE FOR THE 
6$ 



2$: 



7$: 

4$; 



004000 163434 3$: 



BEQ 

CMPB 

BEQ 

TST8 

SEQ 

CMPB 

BHI 

BIT 

BEQ 

MOV 

BR 

CLRB 

CLR 

BR 

BIT 

BNE 



SM?ERR7EC,-(SP) 

#5$,a*ERRVEC 

a*1*7060 

(SP)+, a#ERRVEC 

SSVLAD 

(SPH, (SP) + 

(SP)+, a#ERRVEC 

7$ 

CODE FOR THE 

#8IT08,aSWR 

2$ 

3SUR,$TSTNM 

SOVER 

$ERFLG 

3$ 

SERMAX.SERFLG 

3$ 

*8IT09,a$WR 

4$ 

$LPERR,$LPADR 

$0VER 

SERFLG 

STIMES 

1$ 

#8IT11,aSWR 

1$ 



;;TEST FOR CHANGE IN SOFT-SWR 
;;LOOP ON PRESENT TEST? 
;;YES IF SW14=1 
XOR TESTER***** 

:1F RUNNING ON THE **XOR M TESTER CHANGE 

;THIS INSTRUCTION TO A "NOP** (NOP-240) 

;SAVE THE CONTENTS OF THE ERROR VECTOR 

;SET FOR TIMEOUT 

;TIME OUT ON XOR? 

.•RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 

; CLEAR THE STACK AFTER A TIME OUT 

.-RESTORE THE ERROR VECTOR 
..-LOOP ON THE PRESENT TEST 
XOR TESTER***** 

;LO0P ON SPEC. TEST? 

;BR IF NO 

;0N THE RIGHT TEST? SWR<7:0> 

*8R IF YES 

•HAS AN ERROR UCCURRED? 

;8R IF NO 

;MAX. ERRORS FOR THIS TEST OCCURRED? 

;8R IF NO 

;LOOP ON ERROR? 

;BR IF NO 

;SET LOOP ADDRESS TO LAST SCOPE 



;ZERO THE ERROR FLAG 

.-CLEAR THE NUMBER OF ITERATIONS TO MAKE 

.•ESCAPE TO THE NEXT TEST 

.•INHIBIT ITERATIONS? 

;BR IF YES 



CVDRCB DRV11J 01AG 1ST 
CVDRCB.P11 10-AUG-81 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(i) 
U) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
1769 
(1) 
(2) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
CI) 
(1> 
<1> 
(1) 
(1) 
(1) 

n> 

(2) 
(2) 
(1) 
ID 
(D 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



015506 
0155*2 

015514 
015520 
015526 
015530 
015536 
015544 
015550 
015556 
015562 
015566 
015572 
015600 
015606 
015612 
015614 



015616 
015624 
015626 
015632 
015634 
015640 
015644 
015650 
015652 
015660 

015662 
015666 
015672 
015676 
015700 
015704 
015706 
015710 
015714 

015716 
015722 



015726 
015732 
015734 



005737 
001406 
005237 
023737 
002024 
012737 
013737 
105237 
113737 
011637 
011637 
005037 
112737 
013777 
013716 
000002 
000062 



022737 
001074 
105/77 
100071 
117746 
042716 
022726 
001062 
123727 
001456 

104401 
104401 
013746 
104402 
104401 
005046 
005046 
105777 
100375 

117746 
042716 



021627 
001005 
104401 



PRT1 
10:51 

001176 

001104 
001160 

000001 
015614 
001102 
001102 
001106 
001110 
001162 
000001 
001102 
001106 
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163230 



163224 
177600 



000025 
016346 



001104 

001104 
001160 

001174 



001115 
163334 



TST $PASS 

BEQ 1$ 

INC $ICNT 

CMP $TIMES,$ICNT 

BGE SOVER 

1$: MOV *1,$ICNT 

MOV $MXCNT,$TIMES 

$SVLAD; INC8 $TSTNM 

MOVB $TSTNM,$TESTN 

MOV (SP), $LPADR 

MOV (SP). $LPERR 

CLR SESCAPE 

MOVB *1,$ERMAX 

$OVER: MOV $TSTNM,9DISPLAY 

MOV $LPADR,(SP) 

RTJ 
$MXCNT: 50. 
.SBTTL TTY INPUT ROUTINE 



4-10 



IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUmERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOUP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONEd) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
FIXES PS 
MAX. NUMBER OF ITERATIONS 



SEQ 0061 



001140 



000176 

163312 

163306 
177600 
000007 

001134 000001 



016353 
016360 
000176 

016371 



. **************************************************************** 

.ENABL LSB 

; ;*********** **;*•** ft****************************** *************** 

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

;*WHEN OPERATING IN TTY FLAG MODE. 

IS THE SOFT-SWR SELECTED? 

BRANCH IF NO 

CHAR THERE? 

IF NO, DON'T WAIT AROUND 

SAVE THE CHAR 

STR1P-0FF THE ASCII 

IS IT A CONTROL G? 

NO, RETURN TO USER 

ARE WE RUNNING IN AUTO-MODE? 

BRANCH IF YES 

ECHO THE CONTROL-G <*G> 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE— OCTAL ASCII (ALL DIGITS) 

PROMPT FOR NEW SWR 

CLEAR COUNTER 

TH : NEW SWR 

CHriR THERE? 

IF NOT TRY AGAIN 



$CKSWR: 


CMP 


*SWREG,SWR 




BNE 


15$ 




TSTB 


9$TKS 




BPL 


15$ 




MOVB 


8$TKB,-<SP) 
* A C177,(SP) 




BIC 




CMP 


#7,(SP)+ 




BNE 


15* 




CMPB 


$AUT0B,#1 




BEQ 


15$ 




TYPE 


,$CNTLG 


SGTSWR: 


TYPE 


,$MSWR 




MOV 


SWREG, -(SP) 




TYPOC 






TYPE 


,$MNEW 


19$: 


CLR 


-(SP) 




CLR 


•(SP) 


7$: 


TSTB 


a$TKS 




BPL 


7$ 




Move 


9$TKB,-(SP) 




BIC 


tf A C177,(SP) 


9$: 


CMP 


<SP),#25 




BNE 


10$ 




TYPE 


,$CNTLU 



PICK 

MAKE 



UP CHAR 
IT 7-BIT 



ASCII 



;IS IT A CONTROl-U? 

; BRANCH IF NOT 

;YES, ECHO CONTROL-U ( A U) 



CVDRCB 0RV1U D1AG TST 
CVDRCB. P11 10-AUG-81 



(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 



01 5 WO 

015744 



015746 
015752 
015754 
01 5760 
015762 
015770 
015774 
016000 
C16006 
016010 
016016 
016020 
016024 
016030 
016032 
016036 
016040 
016044 
016050 
016052 
016054 
016056 
016060 
016064 
016070 
016072 
016076 



016100 
016102 
016110 
0161K 
016116 
016124 
016132 
016140 
016142 
016146 
016150 
016154 
016160 
016164 



062706 
000757 



021627 
001022 
005766 
001403 
016677 
062706 
104401 
123727 
001003 
012777 
000002 
004737 
021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
1003/5 
117746 
042716 
022627 
001366 



PRI1 
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000006 



000015 

000004 

000002 
000006 
001165 
001135 

000100 

013746 
000060 

000067 

000060 
000002 



000002 
177776 

001164 



MACY11 



000004 
163030 

163024 
177600 
000004 

162776 

162772 
177600 
000021 



306(1063) 
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10-AUG-81 
ROUTINE 
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SEQ 0062 



163150 

000001 
163126 



20$: ADD #6,SP 
BR 19$ 



10$: CMP (SP), #15 

BNE 16$ 

TST 4(SP) 

BEG 11$ 

MOV 2(SP). aswR 

11$: ADD #6,SP 

14$: TYPE ,$CRLF 

CMPB $INTAG,#1 

BNE 15$ 

MOV #100,i$TKS 
15$: RTI 

16$: JSR PC,$TYPEC 

CMP (SP), #60 

BLT 18$ 

CMP <SP),#6/ 

BGT 18$ 

BIC #60,(SPH 

TST 2(SP) 

BEQ 17$ 

ASL (SP) 

ASL (SP) 

ASL (SP) 

17$: INC 2(SP) 

BIS -2(SP),(SP) 

BR 7$ 

18$: TYPE -$QUES 

BR 20$ 
.DSABL LSB 



;;IGN0RE PREVIOUS INPUT 
;;LET*S TRY IT AGAIN 



IS IT A <CR>? 

BRANCH IF NO 

YES, IS IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-ENABLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE-ENABLE TTY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH if YES 

STRIP-OFF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO. SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOM FOR NEW ONE. 
KEE n COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?<CRXLF> 
SIMULATE CONTROL-U 



'•A************************************************************** 
;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;*CALL: 



000002 



000004 
000004 
000023 



$RDCHR: 
1$: 



2$: 



RDCHR 
RETURN HERE 



MOV (SP) f -(SP) 

MOV 4<SP),2(SP) 

TSTB a$TKS 

BPL 1$ 

MOVB a$TK8 i 4(SP) 

BIC # A C<177>,4(SP) 

CMP 4(SP),#23 

BNE 3$ 

TST8 a$TKS 

BPL 2$ 

MOVB a$TK8,-(SP) 

BIC #*C177,(SP> 

CMP (SP) +,#21 

BNE 2$ 



INPUT A SINGLE CHARACTER FROM THE TTY 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED OFF 



PC 



PUSH DOWN THE 

SAVE THE PS 

WAIT FOR 

A CHARACTER 

READ TH'; TTY 

GET RID OF JUNK IF ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL-0? 

IF NOT DISCARD IT 



CVDRCB DRV11J DIAG TST PRT1 MACY11 
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ROUTINE 
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SEQ 0063 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
1770 
(1) 
(2) 
(1) 
(1) 
(1) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 



016166 
016170 
016176 
016200 
016206 
016210 
016216 
016220 
016226 



016230 
016232 
016236 
016242 
016244 
016246 
016250 
016254 
016256 
016262 
016264 
016270 
016274 
016300 
016302 
016306 
016312 
016314 
016316 
016324 
016332 
016334 
016335 
016336 
016346 
016353 
016360 
016371 



000750 

026627 000004 000021 

001744 

026627 000004 000140 

002407 

026627 000004 000175 

003003 

042766 000040 000004 

000002 



010346 
012703 
022703 
101405 
104410 
112613 
122713 
001003 
104401 
000763 
111337 
104401 
122723 
001356 
105063 
104401 
012603 
011646 
016666 
012766 
000002 

000 

000 
000010 
052536 

136 
005015 

040 



016336 
016346 



000177 

001164 

016334 
016334 
000015 

U7777 
001166 



000004 
016336 



005015 
006507 
053523 
047040 



000002 
000004 



000 
000012 
020122 
053505 



01640? 012737 016546 000024 

016410 012737 000340 000026 

01641* 010046 

016420 010146 

016422 010246 

016424 010346 

016426 010446 

016430 010546 



4$: 

;;**** 

;*THIS 

;*CALL 

;* 

;* 



BR 

CMP 
BEQ 
CMP 
BLT 
CMP 
BGT 
BIC 
RTI 



1$ 

4(SP),tf$X0N 

1$ 

4<SP),#140 

4$ 

4(SP),#175 

4$ 

#40,4(SP) 



,,YES, RESUME 
3$: CMP 4(SP),tf$X0N ;;JS IT A RANDOM XON? 

BRANCH IF YES 
IS IT UPPER CASE? 
BRANCH IF YES 
IS IT A SPECIAL CHAR? 
BRANCH If YES 
MAKE IT UPPER CASE 
GO BACK TO USER 

It****************************** ******************** ******** 



;RAN001 
;RAN001 



ROUTINE WILL INPUT A STRING FROM THE TTY 



RDLIN 
RETURN HERE 



SRDLIN: 
1$: 

2$: 



10$: 

4$: 

3$: 



9$: 

STTYIN 
SCNTLU 
SCNTLG 
SMSWR: 
SMNEW: 
.S8TTL 



MOV 

MOV 

CMP 

BLO.S 

RDCHR 

MOVB 

CMPB 

BNE 

TYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

MOV 

MOV 

MOV 

RTI 

.B/TE 

.BYTE 

.BLK6 

.ASCIZ 

.ASCII 

.ASCII 

.ASCII 

POWER 



R3,-(SP) 
*$TTYIN,R3 
mTYIN+8..R3 
4$ 

(SP)+, <R3) 

*177,<R3) 

3$ 

,SQUES 

1$ 

(R3),9$ 

.9$ 

015, (R3H 

2$ 

-KR3) 

,$LF 

<SP)+, R3 

(SP).-(SP) 

4<SP),2(SP) 

*$TTYIN,4(SP) 





8. 

/*U/<15><12> 

/*6/<15><12> 

<15><12>/SWR 

/ NEW = / 



; INPUT A STRING FROM THE TTY 

;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

; TERMINATOR WILL BE A BYTE OF ALL 0*S 

;SAVE R3 

;GET ADDRESS 

;BUFFER FULL? 

*BR IF YES 

;G0 READ ONE CHARACTER FROM THE TTY 

;GET CHARACTER 

;1S IT A RU80UT 

;SK1P IF NOT 

;TYPE A •?* 

; CLEAR THE BUFFER AND LOOP 

;ECHO THE CHARACTER 

; CHECK FOR RETURN 
;LOOP If NOT RETURN 
; CLEAR RETURN (THE 15) 
;TYPF A LINfc FEED 
;HESTORE R3 

;ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCxl CHARACTER ON IT 



= / 



; RE TURN 
.♦STORAGE FOR 
; TERMINATOR 
.'RESERVE 8 BYTES 
.'CONTROL 'IT 
/CONTROL "G M 



ASCII CHAR. TO TYPE 
FOR TTY INPUT 



DOWN AND UP ROUTINES 



*************************************************************** 



♦POWER DOWN ROUTINE 

SPWRDN: MOV #$ILLUP,a#HWRVEC 

MOV #340.8#PWRVEC+2 

MOV RO,-(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R4,-(SP) 

MOV R5,-(SP) 



;SET FOR FAST UP 
PRI0:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 



CVDRCB DRV11J D1AG TST 
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(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(3) 
(3) 
<3) 
(3) 
(3) 
(3) 
(1) 
(1) 

en 
(i) 
<d 
<d 
(D 
(D 
(D 
(D 

1771 
1772 
1773 
(1) 
(2) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 



010432 
016436 
016442 
016450 
016452 



016454 
016462 
016466 
016472 
016476 
016500 
016504 
016506 
016510 
016512 
016514 
016516 
016520 
016526 
016534 
016536 
016540 
016542 
016544 
016546 
016550 
016552 
016554 



016606 
016610 
016614 
0\6t>16 
016620 
016622 
016626 



017746 
010637 
012737 
000000 
000776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
01273/ 
104401 
016554 
012716 
002034 
000002 
000000 
000776 
000000 
005015 



010046 
016600 
005740 
111000 
006300 
016000 
000200 
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M 5 

PAGE 



4-13 



SEG 0064 



162502 
016552 
016454 000024 



016546 
016552 
016552 
016552 

162434 



01 '402 
U03340 



000024 
000026 



042522 052123 



000002 



016642 



MOV 

MOV 

MOV 

HALT 

BR 



aSWR,-(SP) ;;PUSH 
SP.SSAVR6 ;;SAVE 
0$PWRUP,a#PWRVEC ;;SET 



3SWR ON STACK 

SP 

UP VECTOR 



.-2 



;;HANG UP 



•t***********^************************************************* 



000024 §PWRUP: 



IS: 



POWER UP ROUTINE 



016630 011646 

016632 016666 000004 000002 

016640 000002 



SPWRMG: 
SPWRAD: 

*TLLUP: 

SSAVR6: 
PWRMSG: 
.EVEN 

.sent 



MOV 
MOV 
CLR 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 

• WORD 
MOV 

• WORD 
RTI 
HALT 
BR 


.ASCII 



0SILLUP ,30PWRVEC 

$SAVR6,SP 

SSAVR6 

$SAVR6 

1$ 

(SP)+, 3SWR 

(SP)+, R5 

(SP)+, R4 

(SP)+, R3 

(SP)+, R2 

(SP)+,R1 

(SP)+, RO 

rf$PWRDN,8*PWRVEC 

*340,8#PWRVEC+2 

PWRMSG 

(PC)+,(SP) 

START1 



;SET FOR FAST DOWN 

GET SP 

WAIT LOOP FOR THE TTY 

WAIT FOR THE INC 

OF WORD 

POP STACK INTO 9SWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

:SET UP THE POWER DOWN VECTOR 

HRI0.-7 

REPORT THE POWER FAILURE 

POWER FAIL MESSAGE POINTER 

RESTART AT START1 

RESTART ADDRESS 



..THE POWER UP SEQUENCE WAS STARTED 
.-2 ;; BEFORE THE POWER DOWN WAS COMPLETE 

;PUT THE SP HERE 
<15><12>/RESTARTED FROM PWR FAIL/ 



TRAP DECODER 



;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE 'TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRE ROUTINE, THEN USING THE ADDRESS OBTAINED IT WIlL 
;*G0 TO THAT ROUTINE. 



STRAP; MOV RO,-(SP) 

MOV 2(SP), RO 

TST -(RO) 

MOVB (RO), RO 

ASL RO 

MOV $TRPAD(RO),RO 

RTS RO 



SAVE RO 

GET TRAP ADDRESS 

BACKUP BY 2 

GET HIGHT BfTE °. TRAP 

POSITION FOR INDEXING 

INDEX TO TABLE 

GO TO ROUTINE 



;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP2: MOV 
MOV 
RTI 



(SP)--(SP) 
4(SP),2(SP) 



;MOVE THE PC DOWN 
;MOVE THE PSW DOWN 
;RESTORE THE PSW 



.SBTTL TRAP TABLE 



>2 



016656 015666 



CVDRCB DRV11J DIAG TST PRT1 
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(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 016642 016630 

(3) 316644 013534 

(3) 016646 014362 

(3) 016650 014336 

(3) 016652 014376 

(3) 016654 014564 

(1) 

(3) 

(1) 

(3) 016660 015616 
(3) 016662 016100 
(3) 01666* 016230 

1774 

1775 

1776 

1777 016666 005015 

1778 016734 005015 
1779 

1780 016763 122 

1781 017002 042522 

1782 017024 051111 

1783 017037 101 

1784 017052 046511 

1785 017065 111 

1786 017100 044! 03 

1787 017115 105 

1788 017162 051105 
1789 

1790 017240 

1791 017240 001116 

1792 017254 001116 



053103 
051104 

043505 
020107 
020122 
051103 

020122 
051123 
050111 
051122 
050122 



001362 
001362 
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N 5 

PAGE 



4-14 



SEQ 0065 



051104 
030526 

052040 
042522 
042522 
051040 
042522 
051040 
051440 
041520 
020103 



001122 
001122 



; 'THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION, 



iTRPAD: 



ROUTINE 

.WORD 

$TYPE 

$TYPOC 

STYPOS 

STYPON 

STYPDS 



STRAP2 

;;CALL=TYPE 

;;CALL=TYPOC 

;; CALL-TYPOS 

;;CALL=TYPON 

;;CALL=TYPDS 



TRAP+1 (104401) 
TRAP+2C104402) 
TRAP+3H 04403) 
TRAP+4( 104404) 
TRAP+5C104405) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER kAS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



SGTSWR ;;CALL=GTSWR TRAP+6( 104406) GET SOFT-SWR SETTING 



$CKSWR 
SRDCHR 
$RDHN 



;;CALL=CKSUR 
;;CALL=RDCHR 
;;CALL~RDLIN 



TRAP+7O04407) 
TRAP HO (104410) 

TRAP+1 1(104411) 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 



.SBTTL ASCII MESSAGES 

;;GPA TITLED: .ASCIZ <15><12>/CVDRCA DRV11J DIAG TEST 
TITLED: .ASCIZ <1 5><r 1 2>/CVDRC8 DRV11J DIAG TEST PART 1 
TLCABL: .ASCIZ <15><12>/DRV11J CABLE REQ'D/<15x12> 



PART 1 /<15><i2> 
/<15><12> ;;GPA 



EM1 
EM2 
EM3 
EM4 
EM5 
EM6 
EM7 
DH1 
DH2 



DT1: 
DT2: 



.ASCIZ /REG TIMEOUT ER/ 

.ASCII 'REG READ/WRITE ER' 

.ASCIZ /1RR REG ER/ 

.ASCIZ /ACR REG ER/ 

.ASCIZ /IMR REG ER/ 

.ASCIZ /1SR REG ER/ 

.ASCIZ /CHIP STAT ER/ 

.ASCIZ /ERRPC TSTNUM BUSADR EXPCT RCVD/ 

.ASCIZ /ERRPC TSTNUM BUSADR ADRS EXPCT 

.EVEN 

SERRPC. TSTNUM, $BDADR,SGDDAT,$BDDAT,0 

SERRPC, TSTNUM, $BDADR,$GDADR,$GDDAT,$BDDAT,0 



RCVD/ 



CVORCB DRV11J DIA6 TST PRT1 
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1794 

1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 

1810 017272 005227 M7777 

1811 017276 001002 

1812 017300 004737 000400 

1813 017304 005727 

1814 017306 000000 

1815 017310 000207 
1816 

1817 0173^2 

1818 0004 JO 

1819 000400 0050 >7 0173^6 

1820 000404 013746 000004 

1821 000410 012737 000504 

1822 000416 012700 160010 

1823 000422 005720 
!824 000424 000240 

1825 000426 020027 174000 

,826 000432 103773 

1827 000434 010037 017306 

1828 000440 012700 OOOOsO 

1829 000444 04003/ 000006 

1830 000450 04C037 000016 

1831 000454 040037 0000? 2 

1832 000460 040037 000032 

1833 000464 040037 000036 

1834 000470 012737 170000 

1835 000476 012637 000004 

1836 000502 000207 
1837 

1838 000504 012716 000512 

1839 000510 000002 

1840 000512 012637 000004 

1841 000516 012700 000402 

1842 000522 013701 000376 

1843 000526 010602 

1844 000530 012704 000570 

1845 000534 014446 

1846 000536 020427 000546 

1847 000542 101374 

1848 000544 010607 
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FALCON (KXT-11) UPGRADE ROUTINES. 

SBTTL FALCON (KXT-11) UPGRADE ROUTINES. 



;;GPA 



SEQ 0066 



;;GPA 



the following routines have been added to allow diagnostic <s) 
to run on a falcon (kxt-11) based system. 

to determine whether we're a falcon or not, we'll size the 1st 3/4 op 
the i/o page (28k to 31k). falcon has 2kw local ram at 28k(+4) to 30k 
and a macro-odt at 30k to 31k. consequently, all i/o devices must 
be placed between 174000 and 177776. additionally, we'll strap the 
emt and trap service level to pri6, and set the halt vector so that 
we can stop the sucker ! ! 

to minimize the impact of these changes on final program she, the 
bulk of this code is placed in the floating vector space (400-776). 
if the cpu at hand is a falcon (kxt11), it stays there (no harm done), 
otherwise, the area is restored to its original "trap-catcher" state. 



000004 



000140 



FALCON: 


INC 


0-1 


; ONCE-ONLY !!! 


;GPA 




8NE 


1$ 




;GPA 




CALL 


KXTCHK 


; EXECUTE FALCON CHlCK ! 


;GPA 


1$: 


TST 


<PC) + 


; TEST FALCON FLAG... 


>;GPA 


KXTFLAG 


: 




;..MI = FALCON... 


;GPA 




RETURN 




;...AND RETURN TO CALLER... 


;GPA 




$SVPC= 


* 




;GPA 




.= 400 




; RESTORE FROM 374:376 AT END ! 


\*GPA 


KXTCHK: 


CIR 


KXTFLAG 


; ASSUME NOT FALCON. 


;GPA 




MOV 


S#4,-(SP) 


; SAVE ERROR VECTOR. 


;GPA 




MOV 


#2$.a#4 

#160010, RO 


; SET A TRAP CATCHER. 


;GPA 




MOV 


; FALCON RAM STARTS AT 28K+4, 


•;GPA 


1$: 


TST 
240 


<R0) + 




•;GPA 
;GPA 




CMP 


RO, #174000 


; SIZE TO 31K. ! 


;GPA 




BLO 


1$ 




;GPA 




MOV 


RO.KXTFLAG 
#40, RO 


; MUST BE FALCON, SET THE FLAG ! 


•;GPA 




MOV 


; GET PRIi BIT... 


;GPA 




BIC 


R0,3#6 


;...AND LOWER BUS-ERROR... 


•;GPA 




BIC 


R0,a#16 


» • . .oPT ... i 


;GPA 




BIC 


R0,9#22 


;...IOT... 


;GPA 




BIC 


R0,i#32 


• • • • EMT. . . , 


;GPA 




BIC 


R0,a#36 


;...AND TRAP SERVICE TO PRI6 


,GPA 




MOV 


#i?oooo,a#HO 


; ENABLE 'BREAK 14 HALT. 


;GPA 




MOV 


(sp)+,a#4 


; RESTORE ERROR VECTOR... 


;GPA 




RETURN 




;...AND RETURN, 


•;GPA 


2$; 


MOV 


#3$,(SP) 


; TRAP — NOT A FALCON... 


•;GPA 




RTI 




;... CONTINUE. 


\*GPA 


3$: 


MOV 


(sp) *,a#4 


; RESET ERROR VECTOR 


;GPA 




MOV 


#402, RO 
a#376,R1 


; S,~T-UP TO RESTORE FLOATING... , 


;GPA 




MOV 


;,.. ACTORS (400 - 776). 


•;GPA 




MOV 


SP.R2 


; SA.'E STACK POINTER IN R2 


-;GPA 




MOV 


#6$,R4 






4$: 


MOV 


-(R4).-(3P) 


; PUSH THE RESTORE CODE... 


■;GPA 




CMP 


R4,#5t 


;...ONTO THE STACK. 


■;GPA 




BHI 


4$ 




;GPA 




MOV 


SP,PC 


; AND EXECUTE IT. \ 


■;GPA 



CVDRCB DRV11J DIAG TST 
CVDRC8.P11 10-AUG-81 



1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1870 

1871 

1872 

1873 



000546 
000552 
0C0554 
000556 
000562 
000564 
000566 
000570 



010060 
010110 
022020 
020027 
101771 
010206 
000207 



000104 

017312 
017312 
000001 



PRT1 
10:51 



177776 



000776 
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;;GPA 



SEQ 0067 



THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK AREA. 



5$: 



6$; 



MCV 

MOV 

CMP 

CMP 

BLOS 

MOV 

RETURN 



R0,-2(RO> 

RI-(RO) 

(ROH.CROH 

R0,*776 

5$ 

R2, SP 



; RESTORE .+2... 
;...HALT (OR IOT). 



LOOP 'TIL DONE 
THEN RESTORE SP... 
...AND RETURN TO CALLER 



GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 



IF FALCON, THIS AREA IS FREE FOR ANY PROGRAM UNIQUE 

CHANGES OR DATA STRUCTURES. 

IF USED, YOU'D BETTER PROTECT IT ill 



§FREE= 
LASTAD= 



<1000-.>/2 
,=$SVPC 

Iend 



FREE WORDS LEFT. 



;;GPA 

;;GPA 
;;GPA 



CVDRCB DRV11J DIAG TST 
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ABASE = 

ACDW1 = 

ACDW2 = 

ACPUOP= 

ACRLOC 

ADDWO = 

ADDW1 = 

ADDW10= 

ADDW11= 

ADDU12= 

ADDW13= 

ADDW14= 

ADDW1 5= 

ADDW2 = 

A0DW3 = 

ADDW4 = 

ADDW5 = 

ADDW6 = 

ADDU7 = 

ADDW8 = 

A0DW9 = 

ADEVCT= 

ADEVM = 

AENV = 

AENVM = 

AFATAL= 

AMADR1 = 

AMADR2= 

AMADR3= 

AMADR4= 

AMAMS1 = 

AMAMS2= 

AMAMS3= 

AMAMS4= 

AMSGAD= 

AMSGLG= 

AMSGTY= 

AMTYP1= 

AMTYP2= 

AMTYP3= 

AMTYP4= 

APASS = 

APRIOR= 

APTCSU= 

APTENV= 

APTSIZ= 

APTSPO= 

ASWREG= 

ATESTN= 

AUNIT = 

AUSWR = 

AVECT1= 

A\/ECT2= 



164160 

000000 

000000 

000000 

001400 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000040 

000001 

000200 

000100 

000000 

000000 

000000 

000000 

000000 

000000 



BEGPAT 
BGCHP2 
BGCHP3 
BGCHP4 
BGPAT1 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
BIT09 = 

Bin = 

BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BJTK = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BJT5 = 
BIT6 = 
BIT/ = 
BIT8 = 
BIT9 = 
BPTVEC= 
CHPISR= 
CIMR = 
CIRMR = 
CIRR = 
CISR = 
CKSWR = 
CLRCSR 
CLRIRR 
CR 
CRLF = 

csimr = 

CSIRMR= 
CSIRR = 
CSISR = 
DDISP = 
DH1 
0H2 

DIR = 
DISPLA 
DISPRE 
DMAP 



013232 

013274 

013334 

013376 

013234 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

0OO014 

000140 

000040 

000020 

000100 

000160 

104407 

013124 

013174 

000015 

000200 

000050 

000030 

000110 

000170 

177570 

017115 

017162 

000400 

001142 

000174 

001364 



DRCSA 

DRCSB 

ORCSC 

DRCSD 

DRDBA 

DRDB8 

DRDBC 

DRDBD 

DSWR = 

DTI 

DT2 

EDCHP1 

EDCHP2 

EDCHP3 

EDCHP4 

EMTVEC= 

EMI 

EM2 

EM3 

EM4 

EM5 

EM6 

EM7 

ENDDAT 

ENDPAT 

ERRVEC= 

FALCON 

GTSWR = 

HT 

IE = 

IMRLOC 

INTFLG 

I0TVEC= 

IRRLOC 

ISRLOC 

KXTCHK 

KXTFLA 

LAS TAD* 

LF = 
LMDQ4 = 
LMD57 = 
MACR = 
MIMR = 
MIRR = 
MISR * 
NEXPAS 
NEXPA1 
NXDEV 
NXDEV1 
PACR = 
PATDAT 
PJMR = 
PIRQ = 
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001342 
001346 
00135<> 
001356 
001344 
001350 
001354 
001360 
177570 
017240 
017254 
013254 
013312 
013354 
013416 
000030 
016763 
017002 
017024 
017037 
017052 
017065 
017100 
013532 
013440 
000004 
017272 
104406 
000011 
001000 
001372 
001366 
000020 
001376 
001374 
000400 
017306 
017312 
000012 
000200 
000240 
000254 
000244 
I00250 
!40 
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SEQ 0068 




00026I 
\71712 



PIRQVE- 
PRO 

PR1 i 

PR2 : 

PR3 : 
PR4 

PR5 = 

PR6 : 

PR7 : 
PS 

PSW : 
PVMA : 

PWRMSG 
PWRVEC- 
RDCHR ' 
RDLIN « 
RDY 

RESVEfr 
R6 
R7 

SIMR : 
S1RR • 
SSIHR • 
SSIRR : 
STACK ' 
START 
START1 
STKLMT= 
SWR 
SWRCK 
SWREG 
SWO 

SWOO : 
SW01 = 
SW02 i 
SW03 : 
SW04 
SW05 : 
SW06 • 
SWC7 ■• 
SU08 • 
SW09 • 
SW1 

SW10 • 
SW11 ; 
SW12 = 
SW13 : 
SW14 
SW15 ■• 
SW2 
SW3 
SW4 
SW5 



•- 000240 
■■ 000000 

• 000040 

• 000100 

■ 000140 
= 000200 

- 000240 

• OC0300 

• 000340 
: 177776 
: 177776 
>• 000340 

016554 
' 000024 
: 104410 

: 104411 
: 100000 
: 000010 

=X000006 
*000007 
: 000060 
« 000120 
: 000070 

- 000130 

* 001110 
001402 
002034 

= 177774 

001140 

015164 

000176 

: 000001 

-• 000001 

: 000002 

* 000004 

: 000010 

* 000020 

■ 000040 

: 000100 

: 0002QQ 
-• 000400 

* 001000 

■ 000002 
: 002000 

- 004000 
I 010000 

= 040000 

: 100000 

= 000004 
: 000010 
= 000020 
= 000040 



SW6 = 

SW7 = 

SW8 - 

SW9 - 

TBITVE= 

TITLED 

TKVEC = 

TLCABL 

TPVEC = 

TRAPVE= 

TRTVEC= 

TSTNUM 

TST1 

TST10 

TST11 

TST12 

tsti3 

TST14 

TST15 

TST16 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST26 

TST27 

TST3 

TST30 

TST31 

TST32 

TST33 

T5T34 

TST35 

TST36 

TST37 

TST4 

TST40 

TST41 

TST42 

TST43 

TST44 

TST45 

TST46 

TST47 

TST5 

YST50 

TST51 

TST6 

TST7 



000100 
000200 
000400 
001000 
C00014 
016666 
000060 
016734 
000064 
000034 
000014 
001362 
002142 
003326 
003422 
003516 
003612 
003706 
004056 
004224 
004524 
002220 
005012 
005312 
005600 
005734 
006144 
006350 
006354 
006672 
002412 
007010 
007102 
007202 
007330 
007456 
007556 
007660 
010012 
002522 
010144 
010270 
010444 
010652 
011172 
011460 
012010 




00?766 
003160 



CVDRCB DRV11J 01 AG TST 
CVDRCB.P11 10-AUG-81 
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10:51 SYMBOL TABLE 



TYPDS = 


104405 


TYPE = 


104401 


TYPOC = 


104402 


TYPON = 


104404 


TYPOS = 


104403 


XXDP 


001370 


SAPTHD 


001000 


SATYC 


014114 


SATY1 


014070 


SATY3 


014076 


SATY4 


014106 


SAUTOB 


001134 


SBASE 


001244 


S8DA0R 


001122 


$BDDAT 


001126 


SCDW1 


001250 


$CHARC 


014064 


SCKSWR 


015616 


SCMTAG 


001100 


%cm = 


000000 


SCNTLG 


016353 


SCNTLU 


016346 


$CPU0P 


001216 


SCRLF 


001165 


SOBLK 


015000 


SOEVCT 


001200 


SOEVM 


001246 


SDOAGN 


013100 


SOTBL 


014770 


SENDAD 


013070 


. ABS. 


017312 



$ENDCT 

SENDMG 

SENULL 

$ENV 

SfcNVM 

SEOP 

SEOPCT 

$ERFLG 

SERMAX 

$ERROR 

SERRPC 

SEflRTB 

SERRTY 

SERTTL 

SESCAP 

SETABL 

SETEND 

SFATAL 

SFFLG 

SFILLC 

SPILLS 

$FREE = 

SGDADR 

SGDDAT 

SGET42 

SGTSWR 

$HD = 

SHIBTS 

SICNT 

$1LLUP 



013036 
013107 
013104 
001210 
001211 
013002 
013030 
001103 
001115 
015010 
001116 
001252 
015202 
001112 
001162 
001210 
001252 
001172 
014334 
001156 
001155 
000104 
001120 
001124 
013060 
015666 
000003 
001000 
001104 
016546 



SJNTAG 

SITEMB 

$LF 

$LFLG 

SLPADR 

$LPERR 

SMADR1 

SMADR2 

SMADR3 

SMADR4 

WAIL 

SMAMS1 

SMANS2 

SMAMS3 

SMAMS4 

SMBADR 

SMFLG 

SMNEW 

SMSGAD 

SMSGLG 

SMSGTY 

IMSWR 

SMTYP1 

SMTYP2 

SMTYP3 

SMTYP4 

SMXCNT 

$NULL 

SNWTST= 

$0CNT 



000 



CON RW A8S G8L 



ERRORS DETECTED: 

CVDRCB. CVDRCB=CVDRCB 
RUN-TIME: 22 10 .3 SECONDS 
RUN-TIME RATIO: 93/33=? 8 
CORE USED: 25K (49 PAGES) 
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001135 
001114 
001166 
014333 
001106 
001110 
001222 
001226 
001232 
001236 
001170 
001220 
001224 
001230 
001234 
001002 
014332 
016371 
001204 
001206 
001170 
016360 
001221 
001225 
001231 
001235 
015614 
001154 
000001 
014560 



E 6 
PAGE 



6-1 



SEQ 0069 



SOMODE 

SOVER 

$PASS 

SPASTM 

SPWRAD 

$PWRDN 

SPWRMG 

SPWRUP 

$QUES 

SRDCHR 

SRDLIN 

SRDSZ i 

SRTNAD 

SSAVR6 

SSCOPE 

SSETUP^ 

SSTUP = 

SSVLAD 

$SVPC = 

$SWR - 

SSWREb 

SSWRMK- 

S'^TN 

$p* 
%in 

iTPFLG 



014562 
015600 
001176 
001006 
016542 
016402 
016536 
016454 
001164 
016100 
016230 
000010 
013102 
016552 
015336 
000117 
\77777 
015544 
017312 
165400 
001212 
000000 
001174 
001160 
001146 
001144 
000052 
001152 
001157 
001150 



STRAP 

ITRAP2 

$TRP = 

STRPAD 

STSTM 

STSTNM 

STTYIN 

STYPDS 

STYPE 

STYPEC 

STYPEX 

STYPOC 

STYPON 

STYPOS 

SUNN 

SUNITM 

SUSWR 

SVECT1 

SVECT2 

SXOFF : 

SXON •■ 

SXTSTR 

$$GET4= 

SOFILL 

!$X i 



016606 
016630 
00001? 
016642 
001004 
001102 
016336 
014564 
013534 
013746 
014066 
014362 
014376 
014336 
001202 
001010 
001214 
001240 
001242 
000023 
000021 
015350 
000000 
014561 
017312 
001 000 



B 


1 






J 5 IAG 


TST 


PRT1 


HACY11 


306(106 


C 


1 






K 5 IAG 


TST 


PRT1 


MACY11 


306(106 


D 


1 






L 5 IAG 


TST 


PRT1 


MACY11 


306(106 


E 


1 


ORMATTED PAPERTAPES OR XXDP ME 


M 5 IAG 


TST 


PRT1 


MACY11 


306(106 


F 


1 


ROL BY TYPING 


THE 'CONTROL & G 


N 5 IAG 


TST 


PRT1 


MACY11 


306(106 


6 


1 


PORTING 




B 6 IAG 


TST 


PRT1 


MACY11 


306(106 


H 


1 


NEOUS 




C 6 IAG 


TST 


PRT1 


MACY11 


306(106 


1 


1 


TEST DESCRIPTIONS 


D 6 IAG 


TST 


PRT1 


MACY11 


306(106 


J 


1 


DING DBRC IN 


INPUT MODE WILL S 


E 6 IAG 


TST 


PRT1 


MACY11 


306(106 


K 


1 


IAG TST PRT1 


MACY11 306(106 












L 


1 


IAG TST PRT1 


MACY11 30GCI06 












M 


1 


IAG TST PRT1 


MACY11 306(106 












N 


1 


IAG TST PRT1 


MACY11 306(106 












B 


2 


IAG TST PRT1 


MACY11 306(106 












C 


2 


IAG TS X PRT1 


MACY11 306(106 












D 


2 


IAG TST PRT1 


MACY11 306(106 












E 


2 


IAG TST PRT1 


MACY11 306(106 












F 


2 


IAG TST PRT1 


MACY11 306(106 












G 


2 


IAG TST PRT1 


MACY11 306(106 












H 


2 


IAG TST PRTT 


MACY11 306(106 












I 


2 


IAG TST PRT1 


MACY11 306(106 












J 


2 


IAG TST PRT1 


MACY11 306U06 












K 


2 


IAG TST PRT1 


MACY11 306(106 












L 


2 


IAG TST PRT1 


MACY11 306(106 












M 


? 


IAG TST PRT1 


WACY11 306(106 












U 


2 


IAG TST PRT1 


KACY11 306(106 












B 


3 


IAG TST PRT1 


MACY11 306(106 












C 


3 


IAG TST PRT1 


MACY11 306(106 












D 


3 


IAG TST PRT1 


MACY11 306(106 












E 


3 


IAG TST PRT1 


MACY11 306(106 












F 


3 


IAG TST PRT1 


MACY11 306(106 












G 


3 


IAG TST PRT1 


MACY11 306(106 












H 


3 


IAG TST PRT1 


MACY11 306(106 












I 


3 


IAG TST PRT1 


MACY11 306(106 












J 


3 


IAG TST PRT1 


WACY11 306(106 












K 


3 


IAG TST PRT1 


MACY11 306(106 












L 


3 


IAG TST PRT1 


MACY11 306(106 












M 


3 


IAG TST PRT1 


MACY11 303(106 












N 


3 


IAG TST PRT1 


MACY11 306(106 












B 


4 


IAG TST PRT1 


MACY11 306(106 












C 


4 


IAG TST PRT1 


HACY11 306(106 












D 


4 


IAG TSV PRT1 


HACY11 306(106 












E 


4 


IAG TST PRT1 


MACY11 306(106 












F 


A 


IAG TST PRT1 


MACY11 306(106 












G 


A 


IAG TST P9T1 


MACY11 306(105 












H 


4 


IAG TST PRT1 


MACY11 306(106 












1 


4 


IAG TST PRT1 


MACY11 306(106 












J 


4 


IAG TST PRT1 


MACY11 306(106 












K 


A 


IAG TST PRT1 


MACY11 306(106 












L 


4 


IAG TST PRT1 


MACY11 306(106 












n 


4 


IAG TSf PRT1 


MACY11 306(106 












u 


4 


IAG TST PRT1 


MACY11 306(106 












B 


5 


IAG TST PRT1 


MACY11 306(106 












C 


5 


IAG TST PRT1 


MACY11 306(106 












D 


5 


IAG TST PRT1 


MACY11 306(106 












E 


5 


IAG TST PRT1 


MACY11 306(106 












F 


5 


IAG TSi PRT1 


MACY11 306(106 












G 


5 


IAG TST KU1 


MACY11 306(106 












H 


5 


IAG TST PRT1 


MACY11 306(106 












I 


5 


IAG TST PRT1 


MACY11 306(106 













